FileSystemObject: textfile contents erased

[zimGirl]

Set fs = CreateObject("Scripting.FileSystemObject") 

        Set f = fs.GetFile(dlgMain.FileName)                

        Set a = f.OpenAsTextStream(varFileNum)

Hey guys,

When I open a file as a textstream (Code above) and hit the (X) to close the form and
exit program before using it in the program (Not Graceful exit), It erases the text
in the file and I get a blank file left over. (same name)

Is there something I am not doing at the end. Why does it erase the text in the file?

 

[borgunit]

Are you closing the document first?

"Everybody is ignorant, only on different subjects." — Will Rogers

 

[zimGirl]

No I am not, how do I do close the document?

 

[borgunit]

from your code, it would be...

a.close

"Everybody is ignorant, only on different subjects." — Will Rogers

 

[zimGirl]

hey borgunit,
Thanks for the help, worked great!!!
I had to close both the stream and the file

a.Close
Close #varFileNum