[الطالب]

سلام


فقط اضف close بالكود اللي عندك

كود :

Dim sourlinks As String = Application.StartupPath & "\allqares\" & p.Trim & "\" & p.Trim & "_sl.txt"
If IO.File.Exists(sourlinks) = False Then
    IO.File.Create(sourlinks).Close()
End If


Str &= m2 & vbNewLine
IO.File.WriteAllText(sourlinks, str)

ولكن لا تحتاجها طالما تسختدم WriteAllText فهي سنشئ الملف ان كان غير موجود

كود :

Dim sourlinks As String = Application.StartupPath & "\allqares\" & p.Trim & "\" & p.Trim & "_sl.txt"

Str &= m2 & vbNewLine
IO.File.WriteAllText(sourlinks, str)

موفقين