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 upotrebu izraza Open .
Sintaksa
FreeFile[(broj opsega)]
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