Notă
Funcția, metoda, obiectul sau proprietatea descrisă în acest subiect este dezactivată dacă Microsoft Jet Expression Service 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ă un Long care reprezintă modul de fișier pentru fișierele deschise utilizând instrucțiunea Open .
Sintaxă
FileAttr(numărfișier,tipreturnare)
Sintaxa funcției FileAttr are următoarele argumente:
| Argument | Descriere |
|---|---|
| numărfișier | Obligatoriu. Număr întreg. Orice număr de fișier valid. |
| returntype | Obligatoriu. Număr întreg. Numărul care indică tipul de informații de returnat. Specificați 1 pentru a returna o valoare care indică modul de fișier. Doar pe sisteme pe 16 biți, specificați 2 pentru a regăsi un handle de fișier pentru sistemul de operare. ReturnType 2 nu este acceptat în sistemele pe 32 de biți și provoacă o eroare. |
Valorile returnate
Atunci când argumentul returntypeeste 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 pentru un fișier deschis. Handle-ul de fișier este returnat doar pe sistemele pe 16 biți; Pe sistemele pe 32 de biți, trecerea lui 2 ca al doilea argument 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.