[ابراهيم ايبو]

السلام عليكم جميعا 
بارك الله بكم على الاجابات والردود
من باب المشاركة وتعميم التجارب والاكواد البكم هذه الطريقة مع Filestream
في البدء سيتم التحقق من ان مريع النص ليس فارغا
ثم يتم انشاء ملف نصي ان لم يكن موجودا وان كان موجودا يتم التحقق من امكانية الكتابة فلربما الملف مفتوج
بعدها تتم الكتابة مع اضافة سطر  ... بعدها يتم اغلاق الملف
قريبا انشاء الله مثال كامل لاستخدام ملف نصي كقاعد بيانات

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       If TextBox1.Text.Trim() <> "" Then
           Dim strtxt As String = TextBox1.Text & vbNewLine ' النص المراد كتابته موجود في مربع النص وعند الكتابة نضيف سطر جديد
           Dim fs As New FileStream("Ibrahim.txt", FileMode.Append) ' يفتح ملف موجود وان لم يكن موجود ينشؤه ثم يفتحه
           If File.Exists("Ibrahim.txt") Then ' اذاكان الملف موجود
               If fs.CanWrite Then ' اذا كان بالامكان الكتابة
                   Dim byt As Byte() = New System.Text.UTF8Encoding().GetBytes(strtxt) ' انشائ مصفوفة من نوع بايت تقبل الانكودينغ  يو تي اف 8 ليستوعب حروف النص
                   fs.Write(byt, 0, byt.Length) ' الكتابة تحتاج الى مصفوفة من نوع بايت تم تعريفها لنمط نظام الاحرف والرقم صفر هو بداية المصفوفة ثم حتى نهاية المصفوفة
                   fs.Close()
               End If
           End If
           MessageBox.Show("تمت الكتابة بنجاح", "كتابة", MessageBoxButtons.OK, MessageBoxIcon.Information)
       End If
   End Sub