Shoutbox

Hi, i'm new at visual basic so you know..
My latest program is a Userprogram, and the coding is done
except that my files gets overwritten when i'm saving it..
----------------------------------------------------------------------------
Private Sub Command1_Click()
Dim namefile As String
namefile = Text1.Text

Open App.Path & "\Accounts\" + namefile + ".txt" For Output As #1
Print #1, Text1.Text
Print #1, Text2.Text
Print #1, Text3.Text
Print #1, Text4.Text
Close #1

MsgBox "Msgbox"
End Sub
------------------------------------------------------------------------------
Can you paste back the code but with the code so the file dont
get overwritten, please?

if text1.text is the same each time then the file will be overwritten as your saving it as the same file name

If you want to add text to the end of the file use this instead, For Output overwrites/creates files, Input reads files and Append adds to files

code:

---

Private Sub Command1_Click()
Dim namefile As String
namefile = Text1.Text

Open App.Path & "\Accounts\" + namefile + ".txt" For Append As #1
Print #1, Text1.Text
Print #1, Text2.Text
Print #1, Text3.Text
Print #1, Text4.Text
Close #1

MsgBox "Msgbox"
End Sub

---