Question

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

例如

我有text.vb脚本我需要添加这个脚本VB代码，找到我运行test.vb脚本的目录的PATH（比如LINUX / UNIX的pwd）

THX

耶尔

Answer 1

我认为这样可行：

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

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

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

Answer 2

以下是：

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

Answer 3

我认为你真正想要的是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和CScript中的“.vbs”作为默认主机），然后从C：\ test文件夹运行时，结果如下：

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

VB脚本+找到我在哪个目录下（比如pwd for linux）

3 个答案: