[سميـر]

وعليكم السلام

حسب ما تعلمته أن الامر CreateText يتسبب في إنشاء ملف جديد ليس به بيانات
وأن WriteAllText ينشئ الملف من جديد ويضع فيه البيانات (لن تجد البيانات السابقة)
وأنه لإضافة بيانات جديدة إلى بيانات سابقة يتم بالأمر AppendAllText فقط (ينشئ الملف إن لم يجده) بهذا الشكل

كود :

Dim SB As New System.Text.StringBuilder

     SB.AppendLine("" & "")
     SB.AppendLine("" & TextBox1.Text & ":" & TextBox2.Text & "###" & TextBox3.Text & "###" & TextBox4.Text & "")
     SB.AppendLine("" & TextBox5.Text & ":" & TextBox6.Text & "###" & TextBox7.Text & "###" & TextBox8.Text & "")

 
     Dim R = GenerateRandomAlphanumeric(10)
     'IO.File.CreateText(Application.StartupPath & "\XtreamUserInfo.src").Close()
     'IO.File.WriteAllText(Application.StartupPath & "\XtreamUserInfo.src", SB.ToString, System.Text.Encoding.UTF8)
     IO.File.AppendAllText(Application.StartupPath & "\XtreamUserInfo.src", SB.ToString, System.Text.Encoding.UTF8)
 End Sub
 Public Function GenerateRandomAlphanumeric(ByRef iLength As Integer) As String
     Dim rdm As New Random()
     Dim allowChrs() As Char = "abcdefghijklmnopqrstuvwxyz0123456789".ToCharArray()
     Dim sResult As String = ""

     For i As Integer = 0 To iLength - 1
         sResult += allowChrs(rdm.Next(5, allowChrs.Length))
     Next
     Return sResult
 End Function

أرجو الإفادة وشكرا