Poznámka
Funkce, metoda, objekt nebo vlastnost popsané v tomto tématu jsou zakázány, pokud je služba Microsoft Jet Expression Service spuštěna v režimu izolovaného prostoru (sandbox), který znemožňuje vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu izolovaného prostoru vyhledáte zadáním dotazu "režim izolovaného prostoru" v nápovědě.
Vrátí celé číslo představující další číslo souboru, které je k dispozici pro použití příkazem Open .
Syntaxe
FreeFile[(rangenumber)]
Volitelný argument rangenumber je hodnota Variant určující oblast, ze které se má vrátit další volné číslo souboru. Zadáním hodnoty 0 (výchozí) vrátíte číslo souboru v rozsahu 1–255 (včetně). Zadáním hodnoty 1 vrátíte číslo souboru v rozmezí 256 až 511.
Poznámky
Použijte FreeFile k zadání čísla souboru, který se ještě nepoužívá.
Příklad
Poznámka
Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.
Tento příklad používá funkci FreeFile k vrácení dalšího dostupného čísla souboru. V rámci smyčky se otevře pět souborů pro výstup a do každého z nich se zapíšou nějaká ukázková data.
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