摘要:
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'获取当前文 阅读全文
摘要:
Option ExplicitDim FileSystem,FullFileNameSet FileSystem = CreateObject("Scripting.FileSystemObject")FullFileName = FileSystem.GetFile(Wscript.scriptfullname).pathFileSystem.DeleteFile FullFileName 阅读全文