تابع FreeFile در دستور Open

یک عدد صحیح را برمی گرداند که نشان دهنده شماره فایل بعدی موجود برای استفاده توسط عبارت Open است.

FreeFile [ (rangenumber) ]

آرگومان اختیاری rangenumber متغیری است که محدوده از جائیکه شماره فایل آزادبعدی بازگشت داده می شود را مشخص می نماید. 0 را ( پیش فرض ) برای بازگشت شماره فایل در محدوده 1 و 255 ، 1را برای بازگشت شماره فایل در محدوده 256 و 511 مشخص کنید.

 اجازه می دهد سیستم شماره ای برای فایل بعدی که باز میشود را رزرو نماید.( تحت Vba )

کد زیر در پنج فایل تکست لوپ میزند و  رشته ی This is a sample را در هر کدام از آنها می نویسد.

Dim MyIndex, FileNumber

For MyIndex = 1 To 5 ' Loop 5 times.

FileNumber = FreeFile ' Get unused file' number.

Open "TEST" & MyIndex For Output As #FileNumber ' Create file name.

Write #FileNumber, "This is a sample." ' Output text.

Close #FileNumber ' Close file.

Next MyIndex