Napomena: Funkcija, metoda, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression Service pokrenut u načinu rada sigurnosne ograde, što onemogućuje procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada sigurnosne ograde potražite u pomoći u odjeljku "način rada s memorijom za testiranje".
Vraća cijeli broj koji predstavlja sljedeći broj datoteke koji je dostupan za korištenje pomoću naredbe Otvori.
Sintaksa
FreeFile[(brojraspona)]
Neobavezni argument rangenumber je Variant koji određuje raspon iz kojeg će se vratiti sljedeći besplatni broj datoteke. Navedite 0 (zadano) da biste vratili broj datoteke u rasponu od 1 do 255, uključujući obje vrijednosti. Navedite 1 da biste vratili broj datoteke u rasponu od 256 do 511.
Napomene
Pomoću datoteke FreeFile navedite broj datoteke koji se još ne koristi.
Primjer
Napomena: Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.
U ovom se primjeru koristi funkcija FreeFile za vraćanje sljedećeg dostupnog broja datoteke. Pet datoteka otvorit će se za izlaz u petlji, a neki se ogledni podaci zapisi u svaku od njih.
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