Poznámka: Snažíme se pro vás co nejrychleji zajistit aktuální obsah nápovědy ve vašem jazyce. Tato stránka byla přeložena automaticky a může obsahovat gramatické chyby nebo nepřesnosti. Naším cílem je to, aby pro vás byl její obsah užitečný. Mohli byste nám prosím dát ve spodní části této stránky vědět, jestli vám informace v článku pomohly? Pokud byste se rádi podívali na jeho anglickou verzi, najdete ji tady.
Poznámka: Funkce, metody, objektu nebo vlastnosti popsaných v tomto tématu je vypnutá, když běží služba Microsoft Jet výraz v režimu izolovaného prostoru, který brání hodnocení potenciálně nebezpečných výrazů. Další informace o režimu izolovaného prostoru vyhledejte v nápovědě "režim izolovaného prostoru".
Vrátí hodnotu typu Long představující režim souboru u souborů otevřených pomocí příkazu Otevřít .
Syntaxe
FileAttr ( číslo_souboru ; typ_vrácených_informací )
Syntaxe funkce FileAttr obsahuje následující argumenty:
Argument | Popis |
---|---|
číslo_souboru |
Povinné. Celé číslo. Libovolný platný Číslo souboru. |
typ_vrácených_informací |
Povinné. Celé číslo. Číslo označující druh informací se vrátíte. Zadejte 1, vrátí hodnotu označující režim souboru. V sítě 16bitová zadejte 2 pro načtení popisovače souborů operační systém. typ_vrácených_informací 2 není podporováno v 32bitových systémů a způsobí chybu. |
Vrátí hodnoty
1 po typ_vrácených_informacíArgument označují následující návratové hodnoty režim přístupu souboru:
Režim: | Hodnota |
---|---|
Zadání vstupních hodnot |
1 |
Výstup |
2 |
Náhodné |
4 |
Přidávací |
8 |
Binary |
32 |
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 FileAttr vrátit soubor režimu a soubor úchyt otevřeného souboru. Úchyt soubor je vrácena pouze v systémech 16bitová; jako druhý argument s hodnotou 2 v systémech 32bitovou verzi, dojde k chybě.
Dim FileNum, Mode, Handle
FileNum = 1 ' Assign file number.
Open "TESTFILE" For Append As FileNum ' Open file.
Mode = FileAttr(FileNum, 1) ' Returns 8 (Append file mode).
Handle = FileAttr(FileNum, 2) ' Returns file handle.
Close FileNum ' Close file.