استخدم FreeFile لمنع تعارض فتح ملف معين

• 

التفاصيل

الزيارات: 4137

تستطيع فتح ملف معين بهذه الطريقة

كود:

---

Open "myfile.txt" For Append As #1


Print #1, "a line of text"


Close #1

---

ولكن مشكلة هذه الطريقة هي رقم الملف الذي اخترته فربما يكون هذا الرقم الذي استخدمته لفتح الملف مستخدم لملف آخر فيحصل تعارض ومن ثم تحصل على رسالة خطأ ولمنع حصول ذلك استخدم الكود التالي

كود:

---

intFile = FreeFile()


Open "myfile.txt" For Append As #intFile


Print #intFile, "a line of text"


Close #intFile

---

حيث إن دالة FreeFile تقوم بإعطاء الملف أول رقم متاح

http://www.arabteam2000-forum.com/