[سعود]

PHP كود :

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


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


هنا يحدث خطا ان الملف قيد الاستخدام

[الطالب]

سلام

كود :

IO.File.Create(sourlinks).Close()

موفقين

[سعود]

اين اكتبها؟
هل بعد

PHP كود :

IO.File.Create(sourlinks) 


[الطالب]

سلام


فقط اضف 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)

موفقين