VBS获取当前文件目录

来源:互联网 发布:光能使者知乎 编辑:程序博客网 时间:2024/06/05 07:10
Function pathRemove(strFileName)
strFileName=Replace(strFileName,"/","\")
Dim ipos 
ipos=InStrRev(strFileName,"\")
pathRemove=Left(strFileName,ipos)



EndFunction

WScript.Echo  pathRemove(WScript.ScriptFullName)
0 0