03-23-2009, 06:13 PM
Hi,
You can try this.
You can try this.
Code:
dim fso,a
Const ForReading = 1, ForWriting = 2
' Create a text file
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.CreateTextFile("C:\tarik.txt",True)
a.WriteLine("This is a test")
a.Close
'Open and edit it
Set a= fso.OpenTextFile("C:\tarik.txt",ForWriting,True)
a.WriteLine("This is test1")
a.close