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

一、显示“选择文件”的对话框

问： 嗨，Scripting Guy！有没有什么方法可以让我使用脚本向用户显示一个对话框，供用户选择文件使用？

答：您好。｜
　　如果您使用的是 Windows 2000，我们不知道实现此操作的方法，至少操作系统中没有内置这样的方法。
　　但如果您使用的是 Windows XP，情况就不同了。在 Windows XP 上，您可以使用"UserAccounts.CommonDialog” 对象向用户显示一个标准的“文件打开”对话框。

      可以用类似以下代码的脚本：

1）我们首先创建一个对 UserAccounts.CommonDialog 对象的对象引用（名为“objDialog”）。

2）接着，我们设置对话框的“筛选”属性。我们要显示所有文件，所以我们将筛选设置成这样：
          objDialog.Filter = "All Files|*.*"

     假如我们只想显示文本文件，那该怎么办？在这种情况下，我们将使用以下筛选：
          objDialog.Filter = "Text Files|*.txt"

      您也许能够看出它是如何运行的：我们为文件类型提供说明 (Text Files)，然后插入一个竖线分隔符 (|)，最后使用标准的通配符来指示所有 .txt 文件 (*.txt)。
      是不是想默认显示 .txt 文件，然后为用户提供查看所有文件的选项？那么可以使用以下代码：
          objDialog.Filter = "Text Files|*.txt|All Files|*.*"

      试一试，您就明白我们的意思了。

3）然后，我们指定默认文件夹。
      默认情况下，我们希望对话框显示位于驱动器 C 的根文件夹中的文件，所以我们这样设置“InitialDir”属性：
          objDialog.InitialDir = "C:/"

      希望显示 C:/Windows 文件夹中的文件吗？那么可以使用以下代码：
          objDialog.InitialDir = "C:/Windows"

      不必担心：这是一个真正的“文件打开”对话框，所以您可以随意单击，并且可以随时停下来。您从 C:/Windows 开始并不意味着您只能打开该文件夹中的文件。

4）最后，我们使用下面这行代码显示对话框：