[ابو روضة]

(30-10-21, 05:03 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته
استخدم الكود (vbNewLine ) مثلاً :

كود :

vbNewLine & "book[6] = 55.html"

(31-10-21, 01:42 AM)trakktour كتب : و عليكم السلام 
تفضل اخي الكريم ان شاء الله نكون فهمتك صح

كود :

       Dim inputData As String
       inputData = InputBox("اكتب ما تشاء هنا")
       Dim FILE_NAME As String = "book.txt"

       If System.IO.File.Exists(FILE_NAME) = True Then
           Dim objWriter As New System.IO.StreamWriter(FILE_NAME, IO.FileMode.Append)
           objWriter.WriteLine(inputData)
           objWriter.Close()
           MsgBox("تم الحفظ")
       Else
           MsgBox("ملف تكست غير موجود")
           Dim writeFile As IO.StreamWriter
           writeFile = IO.File.CreateText(FILE_NAME)
           writeFile.WriteLine(inputData)
           writeFile.Close()
       End If

ربنا يبارك فيكم أخوتى الغاليين ....

جزاكم الله كل الخير...