Poznámka: Funkcia, metóda, objekt alebo vlastnosť, ktoré sú popísané v tejto téme, sú vypnuté, ak je služba Microsoft Jet Expression Service spustená v režime karantény, ktorý zabraňuje vo vyhodnocovaní možných nebezpečných výrazov. Ďalšie informácie o režime karantény nájdete vyhľadaním výrazu „režim karantény“ v Pomocníkovi.
Vráti celé číslo predstavujúce ďalšie číslo súboru, ktoré sa môže použiť v príkaze Otvoriť.
Syntax
FreeFile[(číslorozsahu)]
Voliteľný argument číslorozsahu je variant určujúci rozsah, od ktorého sa má vrátiť číslo nasledujúceho voľného súboru. Zadajte hodnotu 0 (predvolené), ak chcete vrátiť číslo súboru v rozsahu 1 – 255 vrátane. Zadajte hodnotu 1, ak chcete vrátiť číslo súboru v rozsahu 256 – 511.
Poznámky
Funkciu FreeFile môžete použiť, ak chcete poskytnúť číslo súboru, ktoré sa ešte nepoužíva.
Príklad
Poznámka: Nasledujúce príklady ukazujú použitie tejto funkcie v module jazyka Visual Basic for Applications (VBA). Ak chcete získať ďalšie informácie o práci s jazykom VBA, vyberte z rozbaľovacieho zoznamu vedľa položky Hľadať možnosť Odkaz pre vývojára a do vyhľadávacieho poľa zadajte nejaké výrazy.
V tomto príklade je funkcia FreeFile použitá na vrátenie ďalšieho dostupného čísla súboru. Na výstup je otvorených päť súborov v rámci slučky a do každého z nich sa zapisujú vzorové údaje.
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