Vbscript VB脚本+；查找我所在的目录（如用于linux的pwd）

如何获取运行VB脚本的本地目录的路径

比如说

我有text.vb脚本 我需要向这个脚本中添加VB代码，以查找运行test.VB脚本的目录的路径（如用于LINUX/UNIX的pwd）

THX

---

Yael

我认为这会奏效：

Dim currDir
Set fso = CreateObject("Scripting.FileSystemObject")
currDir = fso.GetParentFolderName(Wscript.ScriptFullName)

编辑：或者你可以这样做：

Replace(WScript.ScriptFullName, WScript.ScriptName, "")

以下是如何：

Function ExtractFilePath(PathName)
   For x = Len(PathName) To 1 Step -1
      If Mid(PathName, x, 1) = "\" Then Exit For
   Next
   ExtractFilePath = Left (PathName, x - 1)
End Function

ExtractFilePath(WScript.ScriptFullName) 'get current path

---

我想你真正想要的是WshShell.CurrentDirectory

请注意，脚本路径不一定是当前目录。如果您选择以这种方式进行设置，则会出现这种情况，但也可以从其他文件夹运行脚本

给定C:\scripts中的CurrDir.vbs脚本：

' CurrDir.vbs
' show current dir as opposed to script dir

Dim shl
Set shl = WScript.CreateObject("WScript.Shell")

Say "current dir = " & shl.CurrentDirectory
Say "script name = " & WScript.ScriptFullName

sub Say(s)
  WScript.Echo s
end sub

使用PATH环境变量中的C:\scripts（以及PATHEXT中的“.vbs”和CScript作为默认主机），然后从C:\test文件夹运行时，结果如下：

C:\test>CurrDir
current dir = C:\test
script name = C:\scripts\CurrDir.vbs

---

THX，如何在下面的语法中添加currDir？如果（fso.FileExists（“currDir\test.vbs”）），则@yael：我想应该是这样的：

如果（fso.FileExists（currDir&“\test.vbs”））那么