2011 年 1月 22 日随笔档案 - BeyondTechnology

2011年1月22日

摘要： Option ExplicitPublic Const vbQuote = """"Dim wsSet ws = Wscript.CreateObject("Wscript.Shell")'获取当前路径Dim CurrentDirectoryCurrentDirectory = ws.CurrentDirectoryDim FSO,FileName,FilePathSet FSO = CreateObject("Scripting.FileSystemObject")'获取当前路径FilePath = FSO.GetFile(Wscript.scriptfullname).path'获取当前文阅读全文

posted @ 2011-01-22 08:53 BeyondTechnology 阅读(224) 评论(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)