createTestFileThenDestroy.vbs
CreateAFile()
DiscardScript()
Function CreateAFile
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("C:\Temp\spooler\dummy.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close
End Function
Function DiscardScript()
Set objFSO = CreateObject("Scripting.FileSystemObject")
strScript = Wscript.ScriptFullName
objFSO.DeleteFile(strScript)
End Function
Comments
0 B
|👍
/👎
0 B
|0 👍
/0 👎
0 B
|👍
/👎