随笔- 182
文章- 1
评论- 28
阅读-
57万
随笔分类 - Code Library
Code Library
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
阅读全文
获取当前文件所在目录
摘要：'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
阅读全文
DeleteMyself.vbs
摘要：Option ExplicitDim FileSystem,FullFileNameSet FileSystem = CreateObject("Scripting.FileSystemObject")FullFileName = FileSystem.GetFile(Wscript.scriptfullname).pathFileSystem.DeleteFile FullFileName
阅读全文
