windows - 如何使我的脚本可移植 vbs

Question

这将是一个菜鸟问题..但我想让我的脚本更便携。比方说，我已经在 USB 中编写了我所有的 .vbs(或任何自然代码中的任何脚本)。所以我想在当前机器上运行那个 vbs。 USB 被分配到 F: 驱动器

然而，当我拔掉那个 USB 并连接到另一台机器时..它将不再是 F:..但它可能是 E: G: 或其他什么

我只是想知道如何在不直接在脚本上更改它的情况下克服它，但脚本能够读取它指向的目录。

我不确定该属性/功能是如何调用的。

但会很感激任何提示/技巧

Answer 1

有两种主要方法可以使您的脚本更具可移植性。

第一种方法(可能也是最适合您的用例的方法)是通过使用 WScript.ScriptFullName 并获取前三个字符来查找驱动器盘符来检查您的可执行文件在哪个驱动器上运行。您也可以将脚本名称 (WScript.ScriptName) 末尾截掉以找到当前工作目录。将其分配给一个变量，并在您指定路径的代码中的任何地方使用它。

Dim fullname : fullname = WScript.ScriptFullName
Dim drive : drive = Mid(fullname, 1, 3)
Dim path : path = Mid(fullname, 1, Len(fullname) - Len(WScript.ScriptName))
WScript.Echo "Drive = " & drive & vbcrlf & "Path = " & path

另一种方法是让你的脚本期待run-time arguments来自用户，因此您可以准确指定要在何处执行操作。

' Make a shortcut to your script and add a parameter,
' Or run from the command prompt with an additional parameter.
If WScript.Arguments.Length = 0 Then
    WScript.Echo "No arguments supplied!"
    WScript.Quit
End If

WScript.Echo WScript.Arguments(0)

希望对您有所帮助!