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

Potrebna vam je dodatna pomoć?

Unapredite veštine
Istražite obuku
Prvi nabavite nove funkcije
Pridružite se Microsoft insajdere

Da li su vam ove informacije koristile?

Koliko ste zadovoljni kvalitetom prevoda?

Šta je uticalo na vaše iskustvo?

Imate li dodatne povratne informacije? (Opcionalno)

Hvala vam na povratnim informacijama!

×