Append to the top of a file

[ri]

I currently have the code:

Function WriteLineToFile(filename)
Set AFileStream = FSO.OpenTextFile(DATA_PATH & filename, 8)
AFileStream.WriteLine filename
End Function

It writes the filename that it is passed to the correct file (which is a .dat file) ok. The problem is that it appends it on a new line at the end of the file. I need it to be put in as the first line above everything else.

Can anyone help I would really appreciate it?

 

[jaredn]

grab the contents of the text file and store it in an array or string. write your new line over the old file, then append your array/string jared@aauser.com