16-08-13, 04:28 PM
16-08-13, 05:09 PM
عرفت الطريقة وحبيت افيدكم ..
بحيث لو كان الملف موجود قم بحذفه ثم اذا كان غير موجود اصنع اخر ..
وبذالك يكون فارغ ..
إقتباس : If System.IO.File.Exists("q1.txt") = True Then
My.Computer.FileSystem.DeleteFile("q1.txt")
End If
If System.IO.File.Exists("q1.txt") = False Then
FileOpen(1, ("q1.txt"), OpenMode.Output)
PrintLine(1, TextBox1.Text)
FileClose(1)
End If
بحيث لو كان الملف موجود قم بحذفه ثم اذا كان غير موجود اصنع اخر ..
وبذالك يكون فارغ ..
16-08-13, 05:11 PM
كود :
Dim W As IO.StreamWriter = IO.File.CreateText("مسار النص")
W.Write("")
W.Close()16-08-13, 05:21 PM
[COLOR="#800000"]W.Write("")
للتوضيح فقط تستطيع حذفها[/COLOR]
للتوضيح فقط تستطيع حذفها[/COLOR]
16-08-13, 08:19 PM
أخي mr3omr أنصحك باستخدام طريقة الأخ 3booody
لأن طريقتك هي من زمن vb6
لأن طريقتك هي من زمن vb6
