Append to a text file

[awais1989]

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

Private Sub Command1_Click()
  Open "c:\temp.txt" For Output As #1
  Print #1, "hi"
  Close #1
End Sub

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