
CODE: [Copy to clipboard]msgbox CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2)
CODE: [Copy to clipboard]都可以function getfolder()
getfolder=left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\")-1)
end function
=====================================
path=Left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))
MsgBox path
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |