Question

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

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

查找Active Drive

1 个答案: