联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
msgbox CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2)
function getfolder() getfolder=left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\")-1) end function ===================================== path=Left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName)) MsgBox path