vbs获取当前运行目录

双击该vbs脚本，得到点前目录

msgbox "当前文件路径是 " & wscript.ScriptFullName 
set ws=CreateObject("WScript.Shell") 
MsgBox "当前文件夹是 " & ws.CurrentDirectory