Const Path = "test.txt" 'Name of new file
Const TempPath = "test.tmp" 'Name of a temp file
Set fs = CreateObject("Scripting.FileSystemObject")
Set outFile = fs.CreateTextFile(TempPath, True) 'Create the temp file
outFile.write "Hello dude!" 'Write a line
outFile.close 'Close the file
fs.CopyFile TempPath, Path 'Copy one file to another file of a different name
fs.DeleteFile(TempPath) 'Delete the temp file