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 sandboxu, což brání vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu sandboxu najdete v nápovědě pro "režim sandboxu".

Vrátí long představující režim souborů pro soubory otevřené pomocí příkazu Open .

Syntaxe

FileAttr ( číslo souboru , návratový typ )

Syntaxe funkce FileAttr má tyto argumenty:

Argument

Popis

filenumber

Povinný argument. Celé číslo. Všechny platné Číslo souboru.

Returntype

Povinný argument. Celé číslo. Číslo označující typ informací, které se mají vrátit. Zadáním hodnoty 1 vrátíte hodnotu označující režim souboru. Pouze v 16bitových systémech zadejte hodnotu 2 pro načtení popisovače souboru operačního systému. Returntype 2 není podporován v 32bitových systémech a způsobuje chybu.

Návratové hodnoty

Pokud jeArgumentnávratového typu 1, následující návratové hodnoty označují režim přístupu k souborům:

Modus

Value (Hodnota)

Vstup

1

Výstup

2

Náhodné

4

Přidávací

8

Binární

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 k vrácení režimu souboru a popisovače souboru otevřeného souboru. Popisovač souboru je vrácen pouze v 16bitových systémech; u 32bitových systémů vygeneruje předání hodnoty 2 jako druhého argumentu chybu.

Dim FileNum, Mode, HandleFileNum = 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.

Potřebujete další pomoc?

Chcete další možnosti?

Prozkoumejte výhody předplatného, projděte si školicí kurzy, zjistěte, jak zabezpečit své zařízení a mnohem více.

Komunity vám pomohou klást otázky a odpovídat na ně, poskytovat zpětnou vazbu a vyslechnout odborníky s bohatými znalostmi.