استخدم FreeFile لمنع تعارض فتح ملف معين
- التفاصيل
- الزيارات: 3838
تستطيع فتح ملف معين بهذه الطريقة
كود:
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/
