[trakktour]

تفضل

كود :

       Dim testfile As String = Application.StartupPath & "\test.txt"

       Dim objWriter As New System.IO.StreamWriter(testfile, IO.FileMode.Append)
       objWriter.WriteLine(TextBox1.Text)
       objWriter.Close()