vbscript下调用 Dir 命令的方法

问：

嗨，Scripting Guy！我想做一些看上去非常简单的事情：在脚本中调用 dir 命令。但是好像不起作用。怎样实现我的想法呢？

-- CR, 墨西哥城，墨西哥

答：

你好, CR.从你的邮件来看，你想做一件类似如下所示的简单工作：

Set objShell = CreateObject("Wscript.Shell") objShell.Run("dir"), 1, TRUE

但是，您并没有得到一个当前文件夹中所有文件的列表，而是得到了一条信息 The system cannot find the file specified（系统无法找到指定的文件）。为什么会这样呢？

出现这个问题的原因是这样的：您的计算机中实际上 并没有 一个叫做“Dir”的文件。您可以搜索 dir.exe 或 dir.com；肯定无法找到它们。实际上，dir 是命令行外壳（cmd.exe 或 command.exe，具体情况根据所运行 Windows 的版本而定）的一个内部命令。也就是说，dir 命令只能在命令行窗口中使用。为了证明这一点，请打开命令行窗口，输入 dir，然后按 ENTER 键。您应该看到当前目录下的所有文件和文件夹列表。现在，打开运行 对话框，输入dir ，然后按 ENTER 键。您将看到一条如下所示的错误信息：

但是，这并不意味着您很不走运。实际上 还是 有办法在脚本中调用 Dir 命令的；只不过您必须足够聪明。由于 dir 是一个内部命令，所以您只能调用命令行外科，然后将 Dir 作为一个命令行参数传递给它。让我们看一个利用了这个技巧的脚本，然后具体解释一下它的工作原理：

Set objShell = CreateObject("Wscript.Shell") objShell.Run("%comspec% /k dir"), 1, TRUE

脚本的第一行简单创建了 WSH Shell 对象的一个实例，然后在第二行使用 Run 方法调用 dir 命令。但是，请注意：我们没有直接指定 dir；而是指定了 %comspec% /k dir。该命令字符串可以被分解为下面这样：

%comspec%	打开一个命令行窗口。%comspec% 是一个指向当前命令行外壳的环境变量。通过使用 %comspec%，您不必担心命令行外壳是 cmd.exe 还是 command.exe；%comspec% 会自动选择正确的一个。
/k	在调用 Dir 命令后，确保窗口始终保持打开。这就是 /k 参数的用处。如果我们想要确保命令窗口会在 Dir 命令调用完成后被自动关闭，应该将 /k (keep) 修改为 /c (close)。
dir	运行 dir 命令。