vbs调用Desktop打开窗口

最新推荐文章于 2023-12-12 09:35:48 发布

dingdingmai

最新推荐文章于 2023-12-12 09:35:48 发布

阅读量500

点赞数

文章标签： C C++ C#

本文介绍了一个使用VBScript编写的函数SelectFolder，该函数允许用户从计算机中选择一个文件夹，并返回所选文件夹的路径。通过创建Shell.Application对象并利用BrowseForFolder方法实现交互式文件夹选取。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

function SelectFolder()

 Const MY_COMPUTER = &H11
 Const WINDOW_HANDLE = &H0

 Const OPTIONS = 0
 Const BIF_returnonlyfsdirs = &H0001  
 Const BIF_editbox= &H0010  
 
 On Error Resume Next
 Set objShell = CreateObject("Shell.Application")
 Set objFolder = objShell.Namespace(MY_COMPUTER)
 Set objFolderItem = objFolder.Self
 strPath = objFolderItem.Path
 Set objShell = CreateObject("Shell.Application")

 Set WshShell = WScript.CreateObject("WScript.Shell")
 strDesktop = WshShell.SpecialFolders("Desktop")
 Set WshShell = Nothing

 Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, "",NO_OPTIONS, strDesktop)
 objFolder.Self.path="C:\"
 Set objFolderItem = objFolder.Self
 objPath = objFolderItem.Path
 init_save_path=objPath
 SelectFolder=objPath
 Err.Clear
end Function
SelectFolder()
wscript.sleep("5000")