首页 / 编程脚本 / vbs 获取当前目录的实现代码

CMD当前路径

复制代码 代码如下:
test = createobject（"Scripting.FileSystemObject"）.GetFolder（"."）.Path
Wscript.echo test

当前VBS路径

复制代码 代码如下:
test = createobject（"Scripting.FileSystemObject"）.GetFile（Wscript.ScriptFullName）.ParentFolder.Path
Wscript.echo test

复制代码 代码如下:
strComputer = "."
Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootcimv2"）
Set colItems = objWMIService.ExecQuery（"Select * From Win32_Process Where Name = "wscript.exe" OR Name = "cscript.exe""）
For Each objItem in colItems
lmq=lmq & objItem.CommandLine & vbcrlf
Next
Wscript.Echo lmq


如何获得当前.vbs文件运行的目录

比方说c:aa.vbs，如何或得它的目录c:a，如果把它放在d:目录下，获得它的目录为d:呢？

复制代码 代码如下:
function getfolder（）
getfolder=left（wscript.scriptfullname,instrrev（wscript.scriptfullname,""）-1）
end function
MsgBox getfolder（）