Napomena: Funkcija, metod, objekat ili svojstvo opisano u ovoj temi onemogućena je ako je usluga Microsoft Jet Expression pokrenuta u režimu sandbox, što sprečava procenu potencijalno nebezbednih izraza. Više informacija o režimu "sandbox" potražite u odeljku "režim sandbox" u pomoći.
Vraća ceo broj koji predstavlja sledeći broj datoteke koji je dostupan za korišćenje izrazom Open .
Sintaksa
FreeFile[(brojopsega)]
Opcionalni argument rangenumber je varijanta koja navodi opseg iz kojeg će biti vraćen sledeći besplatni broj datoteke. Navedite 0 (podrazumevano) da biste vratili broj datoteke u opsegu od 1 do 255, uklјučeno. Navedite broj 1 da biste vratili broj datoteke u opsegu od 256 do 511.
Napomene
Koristite FreeFile da biste obezbedili broj datoteke koji nije već u upotrebi.
Primer
Napomena: Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.
Ovaj primer koristi funkciju FreeFile za vraćanje sledećeg dostupnog broja datoteke. Pet datoteka je otvoreno za izlaz u okviru petlje i neki probni podaci su napisani u svakoj 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