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