Funkce FreeFile

Důležité :  Tento článek je strojově přeložený – přečtěte si toto upozornění. Anglickou verzi tohoto článku pro referenci najdete tady.

Poznámka : Funkce, metoda, objekt či vlastnost popisovaná v tomto tématu je zakázána, pokud je služba Microsoft Jet Expression Service spuštěna v režimu vlastního paměťového prostoru, který zabraňuje vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu vlastního paměťového prostoru naleznete po vyhledání hesla Režim vlastního paměťového prostoru v nápovědě.

Vrátí hodnotu typu Integer představující další Číslo souboru k dispozici pomocí příkazu Otevřít .

Syntaxe

FreeFile[(číslo_rozsahu)]

Volitelné číslo_rozsahu argument je variantou určující rozsah, ze kterého má být vrácena další číslo bezplatné souboru. Zadejte hodnotu 0 (výchozí) Pokud chcete vrátit soubor číslo v rozsahu 1 až 255, včetně. Zadejte hodnotu 1 vrátit soubor číslo v rozsahu 256 – 511.

Poznámky

Pomocí funkce FreeFile lze získat číslo souboru, které již není používáno.

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.

V tomto příkladu je pomocí funkce FreeFile vráceno další číslo souboru, které je k dispozici. Ve smyčce je otevřeno pět souborů pro výstup a do každého souboru jsou zapsána určitá 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

Poznámka : Upozornění ke strojovému překladu: Tento článek přeložil počítačový systém bez zásahu člověka. Společnost Microsoft nabízí tyto strojové překlady proto, aby umožnila uživatelům, kteří nemluví anglicky, získat informace o produktech, službách a technologiích této společnosti. Protože je tento článek strojově přeložený, může obsahovat slovní, syntaktické nebo gramatické chyby.

Sdílení Facebook Facebook Twitter Twitter E-mail E-mail

Byly tyto informace užitečné?

Výborně! Je ještě něco dalšího, co byste nám chtěli dát vědět?

Jak bychom ho mohli vylepšit?

Děkujeme vám za zpětnou vazbu.

×