Σημείωση
Η συνάρτηση, η μέθοδος, το αντικείμενο ή η ιδιότητα που περιγράφεται σε αυτό το θέμα είναι απενεργοποιημένη εάν η υπηρεσία Microsoft Jet Expression Service εκτελείται σε κατάσταση λειτουργίας φίλτρου, γεγονός που αποτρέπει την αξιολόγηση ενδεχομένως μη ασφαλών εκφράσεων. Για περισσότερες πληροφορίες σχετικά με τη λειτουργία φίλτρου, αναζητήστε τη "λειτουργία φίλτρου" στη Βοήθεια.
Επιστρέφει μια τιμή "Long" που αντιπροσωπεύει τη λειτουργία αρχείου για τα αρχεία που ανοίγονται με χρήση της πρότασης Open .
Σύνταξη
FileAttr(αριθμός αρχείου;τύπος επιστροφής)
Η σύνταξη της συνάρτησης FileAttr περιλαμβάνει τα εξής ορίσματα:
| Επιχείρημα | Περιγραφή |
|---|---|
| αριθμός αρχείου | Υποχρεωτικό. Ακέραιος αριθμός. Οποιοσδήποτε έγκυρος αριθμός αρχείου. |
| τύπος επιστροφής | Υποχρεωτικό. Ακέραιος αριθμός. Αριθμός που υποδεικνύει τον τύπο των πληροφοριών που θα επιστραφούν. Καθορίστε 1 για να επιστραφεί μια τιμή που υποδεικνύει τη λειτουργία του αρχείου. Μόνο σε συστήματα 16 bit, καθορίστε 2 για να ανακτήσετε έναν δείκτη χειρισμού αρχείων λειτουργικού συστήματος. Το ReturnType 2 δεν υποστηρίζεται σε συστήματα 32-bit και προκαλεί σφάλμα. |
Επιστρεφόμενες τιμές
Όταν το όρισμα returntypeείναι 1, οι ακόλουθες τιμές επιστροφής υποδεικνύουν τη λειτουργία πρόσβασης σε αρχείο:
| Επικρατούσα τιμή | Τιμή |
|---|---|
| Εισαγωγή | 1 |
| Output | 2 |
| Τυχαία | 4 |
| Προσάρτησης | 8 |
| Δυαδικός | 32 |
Παράδειγμα
Σημείωση
Τα παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε " Αναφορά προγραμματιστών " στην αναπτυσσόμενη λίστα δίπλα στην επιλογή "Αναζήτηση " και εισαγάγετε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.
Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση FileAttr για να επιστρέψει την κατάσταση λειτουργίας αρχείου και το δείκτη χειρισμού αρχείων ενός ανοιχτού αρχείου. Ο δείκτης χειρισμού αρχείων επιστρέφεται μόνο σε συστήματα 16 bit. Σε συστήματα 32 bit, η παράβλεψη της τιμής 2 ως δεύτερου ορίσματος δημιουργεί σφάλμα.
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.