PDA

View Full Version : append text file



av8tordude
01-22-2012, 11:08 AM
I have this code that adds to a text file. Is it possible to place the text at the beginning instead of the end?

for example, in the file it has the following information:
Comp I.D. , CompName , UserName

Using the code below, it adds the txtName information at the end:
Comp I.D. , CompName , UserName , txtName

I would like it to place it at the beginning:
txtName , Comp I.D. , CompName , UserName

Open MyPath & MyFile For Append As #1
Print #1, vbTab; txtName;
Close #1

Can someone assist, thank you.

mdmackillop
01-22-2012, 04:40 PM
Rewrite the text file


Sub test()
Dim FS, A
Dim MyPath As String, MyFile As String, fil As String, X As String

MyPath = "C:\AAA\"
MyFile = "New.txt"

fil = MyPath & MyFile

Set FS = CreateObject("Scripting.FileSystemObject")
Set A = FS.OpenTextFile(fil, 1)
X = A.ReadAll
A.Close
Kill fil

Set A = FS.CreateTextFile(fil)
A.WriteLine ("This is a test.")
A.Write (X)
A.Close


End Sub