vbscript - 查找活动驱动器的命令

Question

我正在尝试构建一个 VBScript 来自动运行一些 .exe 文件。问题是脚本和 .exe 文件都在闪存驱动器上，因此它需要自己查找当前驱动器号。我可以使用 对批处理文件进行操作%~d0，但我更喜欢 VBScript 的一些功能，尤其是发送击键的能力。无论如何，我找到了 VBScript 命令的完整列表，但我不是专家，我需要语法方面的帮助。到目前为止，我已将其设置为打开任务管理器并按一些键使其选择任务管理器的“性能选项卡”：

Dim Act :Set Act = CreateObject("Wscript.Shell")
Act.Run("taskmgr.exe")
Success = Act.AppActivate("taskmgr")
Wscript.Sleep 250
Act.SendKeys "{TAB 5}" :WScript.Sleep 500
Act.SendKeys "{RIGHT 3}" :WScript.Sleep 500

我想知道我需要使用什么命令来告诉脚本使用从（USB 驱动器）执行脚本的驱动器号。

Answer 1

使用.ScriptFullName属性获取正在运行的脚本的完整文件规范，并将.GetParentFolderName应用于文件夹的路径，或将 .GetDriveName应用于驱动器号。

>> Set oFS = CreateObject("Scripting.FileSystemObject")
>> s = WScript.ScriptFullName
>> WScript.Echo oFS.GetParentFolderName(s), oFS.GetDriveName(s)
>>
M:\bin M:

参看。这里