Funkcia FileAttr

Poznámka: Funkcia, metóda, objekt alebo vlastnosť, ktoré sú popísané v tejto téme, sú vypnuté, ak je služba Microsoft Jet Expression Service spustená v režime karantény, ktorý zabraňuje vo vyhodnocovaní možných nebezpečných výrazov. Ďalšie informácie o režime karantény nájdete vyhľadaním výrazu „režim karantény“ v Pomocníkovi.

Vráti hodnotu typu Long, ktorá predstavuje režim súboru pre súbory otvorené pomocou príkazu Otvoriť .

Syntax

FileAttr ( číslo súboru ; returntype )

Syntax funkcie FileAttr má tieto argumenty:

Argument

Popis

číslo súboru

Povinný argument. Hodnota typu Integer. Akékoľvek platné číslo súboru.

returntype

Povinný argument. Hodnota typu Integer. Číslo označujúce typ informácií, ktoré sa majú vrátiť. Zadajte hodnotu 1, čím sa vráti hodnota označujúca režim súboru. Iba v 16-bitových systémoch zadajte číslo 2 a načíta sa popisovač súboru operačného systému. returntype 2 nie je podporovaná v 32-bitových systémoch a spôsobuje chybu.

Vrátené hodnoty

Keď je returntypeargument 1, nasledujúce vrátené hodnoty označujú režim prístupu k súboru:

Modus

Maximálny počet

Vstup

1

Výstup

2

Náhodné

4

pripájací dotaz,

8

Binárne

32

Príklad

Poznámka: Nasledujúce príklady ukazujú použitie tejto funkcie v module jazyka Visual Basic for Applications (VBA). Ak chcete získať ďalšie informácie o práci s jazykom VBA, vyberte z rozbaľovacieho zoznamu vedľa položky Hľadať možnosť Odkaz pre vývojára a do vyhľadávacieho poľa zadajte nejaké výrazy.

V tomto príklade sa používa funkcia FileAttr na vrátenie režimu súborov a popisovača súboru otvoreného súboru. Popisovač súboru sa vráti len v 16-bitovom systéme. pri 32-bitových systémoch prechádza 2 ako druhý argument a vygeneruje sa chyba.

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.

Potrebujete ďalšiu pomoc?

Rozšírte svoje zručnosti práce s balíkom Office
Preskúmať školenie
Buďte medzi prvými, ktorí získajú nové funkcie
Pridajte sa k insiderom pre Office

Boli tieto informácie užitočné?

Ďakujeme za vaše pripomienky!

Ďakujeme vám za pripomienky. Pravdepodobne vám pomôže, ak vás spojíme s pracovníkom podpory pre Office.

×