-
真的累了。
发布于 2009-09-06 01:00
-
收藏
复制代码 代码如下:On error resume next Dim fso,wshell,curfolder,curdristr,curdri Set fso=createobject("scripting.filesystemobject") Set wshell=CreateObject("WScript.shell") Set curfolder=fso.GetFolder(".") curdristr=Left(WScript.S..