Text Files

[Chris Wallace]

Hi,

I am trying to do two function with a file, I do not want to use the FSO.

I need to copy a file from one location to another and I also want to open an existing text file and insert a single line of text at the top of the file.

Thanks for any help,

Chris

[plenderj]

''  to move a file, you can use FileCopy and then Kill
FileCopy sourcePath, destPath
Kill sourcePath
 
 
''  insert line at top
Open "c:\someFile.txt" For Binary As #1
    Dim strBuff As String: strBuff = Space(Lof(1))
    Get #1, , strBuff   
Close #1
Open "c:\someFile.txt" For Output As #1
    Print #1, "this is the first line"
    Print #1, strBuff  '' this is the rest of the file
Close #1