Code Library - 随笔分类 - BeyondTechnology

Delete Visual C++ Useless Files

摘要：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 阅读(223) 评论(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 阅读(388) 评论(0) 推荐(0)

DeleteMyself.vbs

摘要：Option ExplicitDim FileSystem,FullFileNameSet FileSystem = CreateObject("Scripting.FileSystemObject")FullFileName = FileSystem.GetFile(Wscript.scriptfullname).pathFileSystem.DeleteFile FullFileName 阅读全文

posted @ 2011-01-22 01:09 BeyondTechnology 阅读(252) 评论(0) 推荐(0)

随笔分类 - Code Library