ملاحظة
يتم تعطيل الوظيفة أو الطريقة أو العنصر أو الخاصية الموضحة في هذا الموضوع إذا كانت خدمة Microsoft Jet Expression Service قيد التشغيل في وضع الحماية، مما يمنع تقييم التعبيرات التي يحتمل أن تكون غير آمنة. لمزيد من المعلومات حول وضع الحماية، ابحث عن "وضع الحماية" في "تعليمات".
ترجع هذه الدالة عددا صحيحا يمثل رقم الملف التالي المتوفر للاستخدام بواسطة جملة Open .
بناء الجملة
FreeFile[(rangenumber)]
إن وسيطة rangenumber الاختيارية هي متغير يحدد النطاق الذي سيتم إرجاع رقم الملف المجاني التالي منه. حدد 0 (افتراضيا) لإرجاع رقم ملف في النطاق من 1 إلى 255، ضمنا. حدد 1 لإرجاع رقم ملف في النطاق من 256 إلى 511.
ملاحظات
استخدم FreeFile لتوفير رقم ملف غير مستخدم بالفعل.
مثال
ملاحظة
توضح الأمثلة التالية استخدام هذه الدالة في وحدة نمطية ل Visual Basic for Applications (VBA). لمزيد من المعلومات حول استخدام VBA، حدد "مرجع المطور" في القائمة المنسدلة بجوار "بحث" وأدخل مصطلح أو أكثر في مربع البحث.
يستخدم هذا المثال الدالة FreeFile لإرجاع رقم الملف المتوفر التالي. يتم فتح خمسة ملفات للإخراج داخل الحلقة، وتتم كتابة بعض عينات البيانات لكل منها.
Dim MyIndex, FileNumber
For MyIndex = 1 To 5 ' Loop 5 times.
' Get unused file number.
FileNumber = FreeFile
' Create file name.
Open "TEST" & MyIndex For Output As #FileNumber
' Output text.
Write #FileNumber, "This is a sample."
' Close file.
Close #FileNumber
Next MyIndex