Napomena
Funkcija, metoda, objekt ili svojstvo opisani u ovoj temi onemogućeni su ako je servis izraza Microsoft Jet pokrenut u načinu rada s memorijom za testiranje, što sprječava procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s memorijom za testiranje potražite u pomoći "način rada s memorijom za testiranje".
Vraća cijeli broj koji predstavlja sljedeći broj datoteke koji je dostupan za korištenje u naredbi Open .
Sintaksa
FreeFile [(brojraspona)]
Neobavezni argument rangenumber je Variant koji određuje raspon iz kojeg se vraća sljedeći slobodan broj datoteke. Navedite 0 (zadano) da biste dobili broj datoteke u rasponu od 1 do 255 (uključujući te vrijednosti). Navedite 1 da bi se prikazao broj datoteke u rasponu od 256 do 511.
Napomene
Pomoću mogućnosti FreeFile navedite broj datoteke koja 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 primjeru funkcija FreeFile vraća sljedeći dostupni broj datoteke. Pet je datoteka otvoreno za izlaz unutar petlje, a u svaku se zapisuju ogledni podaci.
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