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
Istražite osposobljavanje
Prvi koristite nove značajke
Pridružite se Microsoft Office Insiderima

Jesu li vam ove informacije bile korisne?

Koliko ste zadovoljni jezičnom kvalitetom?
Što je utjecalo na vaše iskustvo?

Hvala vam na povratnim informacijama!

×