ملاحظة: يتم تعطيل الدالة أو الأسلوب أو الكائن أو الخاصية الموضحة في هذا الموضوع إذا كانت خدمة تعبير Microsoft Jet قيد التشغيل في وضع بيئة الاختبار المعزولة، مما يمنع تقييم التعبيرات التي يحتمل أن تكون غير آمنة. لمزيد من المعلومات حول وضع بيئة الاختبار المعزولة، ابحث عن "وضع بيئة الاختبار المعزولة" في التعليمات.
إرجاع عدد صحيح يمثل رقم الملف التالية المتوفرة للاستخدام بواسطة عبارة 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
