Funkcija „FreeFile“

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ć?

Razvijte Office veštine
Istražite obuku
Prvi nabavite nove funkcije
Pridružite se Office Insider korisnicima

Da li su vam ove informacije koristile?

×