منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف نتمكن من استخدام ملف بمسار انشيء للتور بنفس الاجراء - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف نتمكن من استخدام ملف بمسار انشيء للتور بنفس الاجراء (/showthread.php?tid=13146)

كيف نتمكن من استخدام ملف بمسار انشيء للتور بنفس الاجراء - سعود - 06-09-15

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) 
هنا يحدث خطا ان الملف قيد الاستخدام

RE: كيف نتمكن من استخدام ملف بمسار انشيء للتور بنفس الاجراء - الطالب - 06-09-15

سلام


كود :
IO.File.Create(sourlinks).Close()


موفقين

RE: كيف نتمكن من استخدام ملف بمسار انشيء للتور بنفس الاجراء - سعود - 06-09-15

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

PHP كود :
IO.File.Create(sourlinks) 


RE: كيف نتمكن من استخدام ملف بمسار انشيء للتور بنفس الاجراء - الطالب - 06-09-15

سلام


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


موفقين