Napomena: Funkcija, metod, objekat ili vlasništvo opisane u ovoj temi je onemogućeno ako se pokreće Microsoft Jet Expression usluga u okviru "sandbox" režima, što sprečava procenu potencijalno nebezbednih izraza. Više informacija o "sandbox" režimu potražite u okviru pomoći "sandbox režim".
Vraća ceo broj koji predstavlja sledeću broj datoteke dostupnu za upotrebu u otvorenoj izjavi.
Sintaksa
FreeFile[(Ranit)]
Opcionalni tip parametra je varijanta koji navodi opseg iz kojeg će se vratiti sledeći besplatan broj datoteke. Navedite 0 (podrazumevano) da biste dobili broj datoteke u opsegu 1 – 255, uključujući i njih. Navedite 1 za povraćaj broja datoteke u opsegu 256 – 511.
Napomene
Koristite FreeFile da biste obezbedili broj datoteke koji se već ne koristi.
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 da bi se vratio sledeći dostupni broj datoteke. Pet datoteka se otvara za izlaz u igri, a neki uzorci podataka se pišu na svako.
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
