2010-02-22 57 views

回答

3
Set objFS = CreateObject("Scripting.FileSystemObject") 
WScript.Echo objFS.GetParentFolderName(WScript.ScriptFullName) 
2

你可以從WScript.ScriptFullName。只要從最後一個反斜槓開始刪除文件名即可。我通常使用JScript作爲腳本,但IIRC VBScript有一個InStrRev函數,它可以幫助您找到最後一個反斜槓。或者:爲WScript.ScriptFullName路徑創建一個File對象,然後使用其ParentFolder屬性。喜歡的東西(未經測試):

Dim objFSO 
Dim objFile 
Dim objFolder 

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.GetFile(WScript.ScriptFullName) 
Set objFolder = objFile.ParentFolder 
1

要獲得完整的路徑只是沒我用Replace(WScript.ScriptFullName, WScript.ScriptName, "")只是導致文件路徑延伸

相關問題