essaye plutot

[code]
Dim fso, MyFile, MyFile2
Set fso = CreateObject("Scripting.FileSystemObject")

fic = "c:\testfile.txt"

Set MyFile = fso.CreateTextFile(fic, True)
MyFile.WriteLine("Ceci est un test.")
MyFile.Close
msgbox "coucou"

Set MyFile2 = fso.GetFile(fic)
MyFile2.Delete



[/code]

tiré de la doc vbscript.