Funcția FileAttr

Notă: Dorim să vă oferim cel mai recent conținut de ajutor, cât mai rapid posibil, în limba dvs. Această pagină a fost tradusă automatizat și poate conține erori gramaticale sau inexactități. Scopul nostru este ca acest conținut să vă fie util. Vă rugăm să ne spuneți dacă informațiile v-au fost utile, în partea de jos a acestei pagini. Aici se află articolul în limba engleză, ca să îl puteți consulta cu ușurință.

Notă: Funcția, metodă, obiecte sau proprietatea cum este descris în acest subiect este dezactivat dacă serviciul de expresie Microsoft Jet se execută în modul sandbox, ceea ce împiedică evaluarea expresii potențial nesigure. Pentru mai multe informații despre modul sandbox, căutați "modul sandbox" în ajutor.

Returnează un lung care reprezintă modul de fișier pentru fișierele deschise utilizând instrucțiunea Open .

Sintaxă

FileAttr ( filenumber , returntype )

Sintaxa funcției FileAttr are următoarele argumente:

Argument

Descriere

filenumber

Sunt necesare. Număr întreg. Orice valide număr fișier.

returntype

Sunt necesare. Număr întreg. Număr indicând tipul de informații pentru a returna. Specificați 1 pentru a returna o valoare care indică în modul de fișier. Pe 16 biți sisteme numai, specificați 2 pentru a prelua un ghidaj de fișier sistem de operare. returntype 2 nu este acceptat în sistemele de 32 de biți și determină o eroare.

Returna valori

Atunci când returntypeargument este 1, următoarele returna valori indica mod de acces fișier:

Mod

Valoare

Intrare

1

Ieșire

2

Aleatoare

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 fișier modul și fișier ghidajul de un fișier deschis. Instrumentul de fișier se returnează doar pe sistemele de 16 biți; pe sistemele de 32 de biți, transmiterea 2 ca un 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.
Extindeți-vă competențele Office
Explorați instruirea
Fiți primul care obține noile caracteristici
Alăturați-vă utilizatorilor Office Insider

Au fost utile aceste informații?

Vă mulțumim pentru feedback!

Vă mulțumim pentru feedback! Se pare că ar fi util să luați legătura cu unul dintre agenții noștri de asistență Office.

×