CrLf

vbs 里的：

Option Explicit
Dim objFSO,strFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set strFile = objFSO.GetFile(WScript.ScriptFullName)
MsgBox strFile.ParentFolder
Set objFSO = Nothing
Set strFile = Nothing
' 正儿八经的方案，参考 http://blog.csdn.net/buyicn/article/details/5641106
复制代码

Option Explicit
Dim f,strPath
f = WScript.ScriptFullName
MsgBox Left(f,Len(f) - Len(WScript.ScriptName))
' 比较简洁的方案
复制代码

CrLf

回复 8# grf9527

估计是因为你的原脚本中其他变量没有 Dim...改用 powerbat 的方案或用以下两句试试，路径保存于 strPath 变量：

f = WScript.ScriptFullName
strPath = Left(f,Len(f) - Len(WScript.ScriptName))
复制代码