[aljzazy]

من الصورة التي أرفقتها، المشكلة تتعلق بخطأ من النوع

كود :

IOException

، حيث الرسالة تشير إلى أن الملف "C:\aaa\save.pdf" قيد الاستخدام من قِبل عملية أخرى، وبالتالي لا يمكن الوصول إليه.
سبب المشكلة:
هذا الخطأ يحدث عندما يتم:

1. ترك الملف مفتوحًا في تطبيق آخر (مثل قارئ PDF أو برنامج آخر).
   
2. استخدام الملف نفسه في الكود الخاص بك دون إغلاق الموارد المتعلقة به (مثل
   FileStream
3. أو
   StreamReader
4. ).
   

---

الحل:
1. تأكد من تحرير الموارد:
إذا كنت تستخدم كائنًا لفتح الملف مثل

كود :

FileStream

أو

كود :

StreamReader

، تأكد من أنك تغلقه بعد الانتهاء.
مثال صحيح:
vb
نسخ الكود

كود :

Using fs As New FileStream("C:\aaa\save.pdf", FileMode.Open, FileAccess.Read)
   ' تنفيذ العمليات على الملف
End Using

استخدام كتلة

كود :

Using

يضمن إغلاق الملف تلقائيًا بعد الانتهاء.

---

2. التأكد من أن الملف ليس مفتوحًا في برامج أخرى:

• تحقق مما إذا كان الملف مفتوحًا في أي تطبيق خارجي (مثل Adobe Reader). أغلق أي برامج قد تستخدم الملف.
  

---

3. فحص الكود المتعلق بحذف الملف أو المجلد:
إذا كنت تحاول حذف الملف، تأكد من أن أي عملية أخرى عليه قد انتهت.
مثال على حذف ملف بعد التأكد من عدم استخدامه:
vb
نسخ الكود

كود :

Try
   If File.Exists("C:\aaa\save.pdf") Then
       File.Delete("C:\aaa\save.pdf")
   End If
Catch ex As IOException
   MessageBox.Show("الملف قيد الاستخدام من قِبل عملية أخرى.")
End Try

---

4. إضافة فحص للتأكد من عدم استخدام الملف:
يمكنك التحقق مما إذا كان الملف قيد الاستخدام قبل العمل عليه:
vb
نسخ الكود

كود :

Function IsFileLocked(filePath As String) As Boolean
   Try
       Using fs As New FileStream(filePath, FileMode.Open, FileAccess.ReadWrite, FileShare.None)
           ' إذا نجحت العملية، الملف غير مقفل
       End Using
   Catch ex As IOException
       ' الملف مقفل
       Return True
   End Try
   Return False
End Function

ثم يمكنك استدعاء هذه الدالة قبل استخدام الملف:
vb
نسخ الكود

كود :

If Not IsFileLocked("C:\aaa\save.pdf") Then
   ' تابع العمل على الملف
Else
   MessageBox.Show("الملف قيد الاستخدام، يرجى المحاولة لاحقًا.")
End If

---

5. استخدام

كود :

GC.Collect

في حالات خاصة (إن لزم):
في بعض الحالات، يمكن أن يساعد تنظيف الموارد غير المُدارة:
vb
نسخ الكود

كود :

GC.Collect()
GC.WaitForPendingFinalizers()