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