Σημείωση: Η συνάρτηση, η μέθοδος, το αντικείμενο ή η ιδιότητα που περιγράφεται σε αυτό το θέμα είναι απενεργοποιημένη εάν η υπηρεσία παραστάσεων Microsoft Jet εκτελείται σε κατάσταση λειτουργίας φίλτρου, κάτι που αποτρέπει τον υπολογισμό πιθανώς μη ασφαλών παραστάσεων. Για περισσότερες πληροφορίες σχετικά με τη λειτουργία φίλτρου, κάντε αναζήτηση για "λειτουργία φίλτρου" στη Βοήθεια.
Επιστρέφει έναν Ακέραιο που αντιπροσωπεύει τα χαρακτηριστικά ενός αρχείου, καταλόγου ή φακέλου.
Σύνταξη
GetAttr ( όνομα_διαδρομής )
Το απαιτούμενο όνομα διαδρομήςόρισμα είναι ένα παράσταση συμβολοσειράς που καθορίζει ένα όνομα αρχείου. Το όνομα διαδρομής μπορεί να περιλαμβάνει τον κατάλογο ή το φάκελο και τη μονάδα δίσκου.
Τιμές επιστροφής
Η τιμή που επιστρέφεται από το GetAttr είναι το άθροισμα των ακόλουθων τιμών χαρακτηριστικών:
Σταθερά |
Τιμή |
Περιγραφή |
vbNormal |
0 |
Κανονική. |
vbReadOnly |
1 |
Μόνο για ανάγνωση. |
vbHidden |
2 |
Κρυμμένα. |
vbSystem |
4 |
Αρχείο συστήματος. Δεν είναι διαθέσιμη στο Macintosh. |
vbDirectory |
16 |
Κατάλογος ή φάκελος. |
vbArchive |
32 |
Το αρχείο έχει αλλάξει από την τελευταία δημιουργία αντιγράφων ασφαλείας. Δεν είναι διαθέσιμη στο Macintosh. |
vbAlias |
64 |
Το καθορισμένο όνομα αρχείου είναι ένα ψευδώνυμο. Διατίθεται μόνο σε Macintosh. |
Σημείωση: Αυτές οι σταθερές καθορίζονται από τη Visual Basic for Applications. Τα ονόματα μπορούν να χρησιμοποιηθούν οπουδήποτε στον κωδικά σας αντί για τις πραγματικές τιμές.
Παρατηρήσεις
Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στην Αναζήτηση και πληκτρολογήστε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.
Για να προσδιορίσετε ποια χαρακτηριστικά έχουν οριστεί, χρησιμοποιήστε τον τελεστή And για να εκτελέσετε μια σύγκριση σε επίπεδο bit της τιμής που επιστρέφεται από τη συνάρτηση GetAttr και την τιμή του μεμονωμένου χαρακτηριστικού αρχείου που θέλετε. Εάν το αποτέλεσμα δεν είναι μηδέν, αυτό το χαρακτηριστικό ορίζεται για το καθορισμένο αρχείο. Για παράδειγμα, η τιμή επιστροφής της ακόλουθης παράστασης And είναι μηδέν εάν δεν έχει οριστεί το χαρακτηριστικό Archive:
Result = GetAttr(FName) And vbArchive
Επιστρέφεται μη μηδενική τιμή εάν έχει οριστεί το χαρακτηριστικό Archive.
Παράδειγμα
Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση GetAttr για να καθορίσει τα χαρακτηριστικά ενός αρχείου και καταλόγου ή φακέλου. Στα Macintosh, είναι διαθέσιμες μόνο οι σταθερές vbNormal, vbReadOnly, vbHidden και vbAlias.
Dim MyAttr
' Assume file TESTFILE has hidden attribute set. MyAttr = GetAttr("TESTFILE") ' Returns 2. ' Returns nonzero if hidden attribute is ' set on TESTFILE. Debug.Print MyAttr And vbHidden ' Assume file TESTFILE has hidden and ' read-only attributes set. MyAttr = GetAttr("TESTFILE") ' Returns 3. ' Returns nonzero if hidden attribute is ' set on TESTFILE. Debug.Print MyAttr And (vbHidden + vbReadOnly) ' Assume MYDIR is a directory or folder. MyAttr = GetAttr("MYDIR") ' Returns 16.