Notă: Funcția, metoda, obiectul sau proprietatea descrise în acest subiect este dezactivată dacă Serviciul de expresii Microsoft Jet rulează în modul sandbox, ceea ce împiedică evaluarea expresiilor potențial nesigure. Pentru mai multe informații despre modul sandbox, căutați "modul sandbox" în Ajutor.
Returnează o valoare Lung reprezentând modul de fișier pentru fișierele deschise utilizând instrucțiunea Deschidere .
Sintaxă
FileAttr ( număr fișier , tip return)
Sintaxa funcției FileAttr are următoarele argumente:
Argument |
Descriere |
număr fișier |
Obligatoriu. Întreg. Orice număr fișier valid . |
tip returnare |
Obligatoriu. Număr întreg. Număr care indică tipul de informații de returnat. Specificați 1 pentru a returna o valoare care indică modul fișier. Doar pe sistemele pe 16 biți, specificați 2 pentru a regăsi un handle de fișier al sistemului de operare. returntype 2 nu este acceptat în sistemele pe 32 de biți și provoacă o eroare. |
Valori returnate
Atunci cândargumenttip returnat este 1, următoarele valori returnate indică modul de acces la fișier:
Mod |
Valoare |
Intrare |
1 |
Rezultat |
2 |
Aleator |
4 |
Adăugare |
8 |
Binar |
32 |
Exemplu
Notă: Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.
Acest exemplu utilizează funcția FileAttr pentru a returna modul de fișier și handle-ul de fișier al unui fișier deschis. Handle-ul de fișier este returnat doar pe sisteme pe 16 biți; pe sistemele pe 32 de biți, trecerea lui 2 ca argument secundar generează o eroare.
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.