Append to a text file

[awais1989]

I'm using this code for writing "hi" in a file

[CODE=vb]Private Sub Command1_Click( )
Open "c:\temp.tx t" For Output As #1
Print #1, "hi"
Close #1
End Sub[/CODE]

but I want that whenever I press command1 it writes "hi" there without overwriting the file.

[awais1989]

isn't here any1??????????? ??????????????? ??????????????? ?????

[kinnu]

What you want to do ??? can u be clear in question?

[Killer42]

Two points...

• Open for Append rather than Output.
• Don't be impatient. The information on this site is provided by volunteers, who put in their own time when they can spare it. Plus, we live all around the world, in different timezones. So you can't always expect a quick response.

[sivasujithsp]

Another way!!!

In menu -> Project -> References -> Microsoft Scripting Runtime

Dim fso As New FileSystemObject
Dim InStream As TextStream

Private Sub Command1_Click()
    
    InStream.Write ("hi")
End Sub

Private Sub Form_Load()
Set InStream = fso.OpenTextFile("<filename_path>", ForAppending, True)
End Sub