Append text on the top of the current textfile? [RESOLVED]

[Pirre001]

I have a textfile, how can I append text on the TOP of the current textfile?

[vbasicgirl]

this is one way.

Dim str1 As String
 
Open "C:\yourfile.txt" For Binary As #1
 str1 = Space$(LOF(1))
 Get #1, 1, str1
 Put #1, 1, Text1.Text & vbCrLf & str1
Close #1

casey.

[sciguyryan]

Try something like this:

Dim intFile As Integer
Dim strFile As String
intFile = FreeFile
 
Open "yourfile.txt" For Input as #intFile
    strFile = Iinput(FileLen("yourfile.txt"), intFile)
Close #intFile
 
strFile = "Some text here..." & vbNewLine & strFile
 
Open "yourfile.txt" For Binary Access Write As #intFree
    Put #intFree, , strFile
Close #intFree

Cheers,

RyanJ