VB选择文件夹

Set spShell = CreateObject("Shell.Application") 
Set spFolder = spShell.BrowseForFolder(0, "选择目录:", 0, ssfDRIVES) 
Set spFolderItem = spFolder.Self 
spPath = spFolderItem.Path 

你可能感兴趣的:(VBScript)