摘要:
Option ExplicitDim FullFileNameFullFileName = Wscript.ScriptFullNameDim CurrentPath CurrentPath = Left(FullFileName,InstrRev(FullFileName,"\") -1)Dim fsoSet fso = CreateObject("Scripting.FileSystemObject")Dim Folder,Files,SubFolderSet Folder = fso.GetFolder(CurrentPath)VisitAndDelete(Folder)Function 阅读全文
posted @ 2011-02-21 21:16
BeyondTechnology
阅读(214)
评论(0)
推荐(0)
摘要:
'dim s,dir0,dir1,dir2's=wscript.scriptfullname'on error resume next'dir0=left(wscript.scriptfullname,instrrev(s,"\")-1)'dir1=left(wscript.scriptfullname,instrrev(dir0,"\")-1)'dir2=left(wscript.scriptfullname,instrrev(dir1,"\")-1)'msgbox dir0'当前目录'msgbox dir1'上层目录'msgbox dir2'上上层目录Option ExplicitDim 阅读全文
posted @ 2011-02-21 00:22
BeyondTechnology
阅读(380)
评论(0)
推荐(0)