VBS 显示“选择文件或文件夹”对话框的代码

　　定义完常量后，我们创建 Shell.Application 对象的实例，然后使用以下代码显示“浏览文件夹”对话框：
　　　　Set objFolder = objShell.BrowseForFolder _
　　　　(WINDOW_HANDLE, "Select a folder:", OPTIONS, "C:\")

　　您可以看到，我们只是调用 BrowseForFolder 方法，传递了四个参数：
　　　　WINDOW_HANDLE，正如我们所说明的，是分配给对话框窗口的数字 ID。
　　　　文本字符串 Select a folder:，将作为显示在对话框中的说明性消息。
　　　　OPTIONS，表示构造对话框所用选项的常量。
　　　　C:\，将作为对话框的根文件夹。对话框将打开 C:\，但不允许您选择树视图中较上方的文件位置（例如，您不能选择“我的电脑”）。如果将根文件夹设置为 C:\Scripts，则将只允许用户选择文件夹 C:\Scripts 及其所有子文件夹。

　　该代码将产生一个类似屏幕上显示的对话框。
　　（您是否有疑问，是的，您以前曾见过此对话框。许多 Windows 应用程序使用同样的方法，同样的对话框。）

　　此时，我们的脚本暂停，等候用户选择文件夹并单击确定，或者单击取消。当用户进行了这两个操作之一，对话框将被清除，操作将存储在对象引用 objFolder 中。

　　那么我们如何知道用户是否选择了一个文件夹并单击了确定，或者只单击了取消？以下代码块就用来解决这个问题：
　　　　If objFolder Is Nothing Then
　　　　Wscript.Quit
　　　　End If

　　该代码检查我们的对象引用 (objFolder) 是否等于一个真正对象（这是关键字 Nothing 的用途）。如果 objFolder 等于 Nothing，则意味着用户单击了取消；如果是那样的话，我们只简单用 Wscript.Quit 退出脚本。如果 objFolder 不等于 Nothing，那么 objFolder 一定指向一个真正的对象；于是脚本将继续运行。

　　由于 Shell 对象的特点，以下两行代码是必要的：
　　　　Set objFolderItem = objFolder.Self
　　　　objPath = objFolderItem.Path

　　当用户选择文件夹并单击确定，他们将得到 Shell Folder 对象的实例。然而，由于某些原因您不能使用 Shell Folder 对象；如果我们要检索选定文件夹的路径，我们得用 FolderItem 对象来代替。（为什么是这样呢？我们不知道。）于是，我们的第一行代码使用 Self 方法返回一个 FolderItem 对象，该对象正与我们的 Folder 对象相同。第二行代码将到此 FolderItem 对象的路径存储到变量 objPath 中。看上去有点笨拙，但它确实能够工作。

　　最后我们回显到选定文件夹的路径，到此工作既已完成。

　　正如我们说明的，示例对话框使用 C:\ 作为根文件夹，不允许您选择位于计算机其他地方的文件夹。有时这样做很好；这样会迫使用户从一组特定文件夹中进行选择。但有时，想使用户能够选择文件系统中任意位置的文件夹。这

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!