查找Active Drive

时间:2015-08-13 00:16:02

标签: vbscript usb-flash-drive

我正在尝试构建一个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驱动器)。

1 个答案:

答案 0 :(得分:2)

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

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

比照here