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, 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.
