06-25-2012, 01:03 PM
Please try this code:
Code:
create for reading=1,create for writing=2,create for append mode=8.
Dim Fso, Myfile.
Set Fso=createobject("scripting.Filesystemobject")
Set Myfile=Fso.opentextFile("E:\project\file.txt",for writing,True)
Myfile.write"write value" & "result"
Myfile.close