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

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

كود:


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/

Share |

معلومات إضافية