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

          intResult = objDialog.ShowOpen

　　现在，我们只需坐下来，等待用户选择文件并单击“确定”（或者等待用户单击“取消”）。
　　如果用户单击“取消”，则变量 intResult 将被设置为 0。在我们的脚本中，我们检查 intResult 的值，如果是 0，我们将只需要使用 Wscript.Quit 来终止此脚本。
　　但是如果用户实际上选择了文件并单击了“确定”，那该怎么办？在这种情况下，intResult 将被设置为 -1，“FileDialog”属性将被设置为所选文件的路径名。我们的脚本只回显路径名，这意味着我们将得到类似以下内容的输出：

          C:WINDOWSPrairie Wind.bmp

　　不用说，您并不局限于只回显文件路径。实际上，您可以使用 WMI、FileSystemObject 或一些其他技术来绑定该文件，然后对其执行删除、复制、压缩或检索文件属性等操作 — 您对文件能够执行的操作差不多都可以对它执行。

　　但无论如何，您都需要使用脚本。

　　顺便说一句，使用此方法，您一次只能选择一个文件，而不能按住“Ctrl”键选择多个文件。有一种方法可以选择多个文件，至少在 XP 计算机上可以，但是我们只能将此问题留到以后的专栏中讨论了。

 

二、显示“选择文件夹”对话框？

问：嗨，脚本专家！在前面的专栏中，您为我们展示了如何给用户显示对话框，使他们能够选择文件。存在给用户显示一个对话框，只让他们选择文件夹的办法吗？

答：您好。

　　实际上，我们有 BrowseForFolder 方法，它是 Windows Shell 对象的一部分。

　　让我给您一个脚本示例，然后讲一下它的工作方式：

　　　

　Const WINDOW_HANDLE = 0
　　　　Const OPTIONS = 0
　　　　Set objShell = CreateObject("Shell.Application")
　　　　Set objFolder = objShell.BrowseForFolder _
　　　　(WINDOW_HANDLE, "Select a folder:", OPTIONS, "C:")
　　　　If objFolder Is Nothing Then
　　　　Wscript.Quit
　　　　End If
　　　　Set objFolderItem = objFolder.Self
　　　　objPath = objFolderItem.Path
　　　　Wscript.Echo objPath

　　首先，我们定义一对常量：WINDOW_HANDLE 和 OPTIONS。
　　WINDOW_HANDLE 常量表示需要指定给要显示的对话框的数字 ID；对于脚本，此值应始终为 0。
　　将 OPTIONS 设置为 0 表示我们将显示一个非常简单的对话框，一个限制用户只从文件夹列表进行选择的对话框。或者，我们可以将 OPTIONS 设置成 &H10&。这种情况下，我们的对话框将包括文本区，用户可以在此键入文件夹路径。

　　定义完常量后，我们创建 Shell.Application 对象的实例，然后使用以下代码显示“浏览文件夹”对话框：