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