Nota
La funzione, il metodo, la proprietà o l'oggetto descritto in questo argomento è disabilitato se Microsoft Jet Expression Service è in esecuzione in modalità sandbox, che impedisce la valutazione delle espressioni potenzialmente pericolose. Per altre informazioni sulla modalità sandbox, cercare "modalità sandbox" nella Guida.
Restituisce un valore Long che rappresenta la modalità file per i file aperti usando l'istruzione Open.
Sintassi
FileAttr(numerofile; tipo restituito)
Gli argomenti della sintassi della funzione FileAttr sono:
| Argomento | Descrizione |
|---|---|
| numfile | Obbligatorio. Numero intero. Qualsiasi numero di file valido. |
| tiporestituito | Obbligatorio. Numero intero. Numero che indica il tipo di informazioni da restituire. Specificare 1 per fare in modo che venga restituito un valore che indica la modalità di accesso ai file. Solo nei sistemi a 16 bit specificare 2 per recuperare un handle di file del sistema operativo. returntype 2 non è supportato nei sistemi a 32 bit e causa un errore. |
Valori restituiti
Quando l'argomento tipo restituitoè 1, i valori restituiti seguenti indicano la modalità di accesso al file:
| Moda | valore |
|---|---|
| Input | 1 |
| Output | 2 |
| Random | 4 |
| Append | 8 |
| Binary | 32 |
Esempio
Nota
Gli esempi seguenti illustrano l'uso di questa funzione in un modulo di Visual Basic, Applications Edition (VBA). Per altre informazioni sull'uso di VBA, selezionare Riferimenti per sviluppatori nell'elenco a discesa accanto a Cerca e immettere uno o più termini nella casella di ricerca.
Questo esempio usa la funzione FileAttr per restituire la modalità file e l'handle di file di un file aperto. L'handle di file viene restituito solo nei sistemi a 16 bit; nei sistemi a 32 bit, il passaggio di 2 come secondo argomento genera un errore.
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.