Funkcija FreeFile

Napomena: Funkcija, način, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression servis pokrenut u načinu rada s izdvojenom funkcijom, čime se sprječava vrednovanje potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s izdvojenom pomoću pretraživanja potražite u odjeljku "Izdvojeni način rada".

Vraća cijeli broj koji predstavlja sljedeću broj datoteke dostupnu za upotrebu pomoću naredbe Otvori .

Sintaksa

FreeFile[(rangenumber)]

Neobavezni argument rangenumber jest varijanta koja određuje raspon iz kojeg se vraća sljedeći besplatni broj datoteke. Navedite 0 (zadano) da biste vratili broj datoteke u rasponu 1 – 255, inclusive. Navedite 1 da biste vratili broj datoteke u rasponu 256 – 511.

Napomene

Koristite FreeFile da biste dobavili broj datoteke koji se već 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 pomoću funkcije FreeFile vraća sljedeći raspoloživi broj datoteke. U petlji je otvoreno pet datoteka za izlaz, a neki ogledni podaci zapisani su na svaki.

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

Potrebna vam je dodatna pomoć?

Proširite svoje vještine korištenja sustava Office
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

×