如何使我的腳本可移植vb

Question

這將是一個菜鳥問題。.但我想使我的腳本更具可移植性。 可以說，我已經將所有.vbs（或任何自然代碼中的任何腳本）編碼為USB。 所以我想在當前計算機上運行該vb。 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

另一種方法是使腳本期望用戶提供運行時參數 ，因此您可以准確指定要在哪里執行操作。

' 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)

希望對您有所幫助！