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:

比照。 here