[حريف برمجة]

كود :

If Not System.IO.File.Exists(Application.StartupPath & "\test.txt") Then
           'اذا الملف غير موجود سيقوم بإنشاءه
           Dim fs As FileStream = File.Create(Application.StartupPath & "\test.txt")
           fs.Close()

       End If
       'الكتابة داخل الملف
       Dim txtfile As System.IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(Application.StartupPath & "\test.txt", True)
       txtfile.WriteLine(TextBox2.Text)
       txtfile.Close()