Περιγραφή σκηνοθεσίας
Επιστρέφει το πρώτο όνομα αρχείου που ταιριάζει με το όνομα διαδρομής και τα καθορισμένα χαρακτηριστικά.
Απλά παραδείγματα Dir
| 1 | MsgBox Dir ("") |
Αυτό θα επιστρέψει το πρώτο όνομα αρχείου στην τρέχουσα διαδρομή.
Σύνταξη Dir
Στο πρόγραμμα επεξεργασίας VBA, μπορείτε να πληκτρολογήσετε "Dir (" για να δείτε τη σύνταξη για τη συνάρτηση Dir:
Η συνάρτηση Dir περιέχει 2 ορίσματα:
Όνομα διαδρομής: [Προαιρετικό] Μια παράσταση συμβολοσειράς που αντιπροσωπεύει έναν κατάλογο/φάκελο/μονάδα δίσκου.
Χαρακτηριστικό: [Προαιρετικό] Καθορίζει χαρακτηριστικά αρχείου. Εάν παραλειφθεί, επιστρέφει αρχεία που ταιριάζουν με το όνομα διαδρομής αλλά δεν έχουν χαρακτηριστικά.
ο Χαρακτηριστικό οι ρυθμίσεις επιχειρημάτων είναι:
| Συνεχής | αξία | Περιγραφή |
|---|---|---|
| vbΚανονικό | 0 | (Προεπιλογή) Καθορίζει αρχεία χωρίς χαρακτηριστικά. |
| vbReadOnly | 1 | Καθορίζει αρχεία μόνο για ανάγνωση εκτός από αρχεία χωρίς χαρακτηριστικά. |
| vbΚρυμμένο | 2 | Καθορίζει κρυφά αρχεία εκτός από αρχεία χωρίς χαρακτηριστικά. |
| vbSystem | 4 | Καθορίζει αρχεία συστήματος εκτός από αρχεία χωρίς χαρακτηριστικά. Δεν διατίθεται στο Macintosh. |
| vbΤόμος | 8 | Καθορίζει την ετικέτα έντασης. εάν έχει οριστεί οποιοδήποτε άλλο χαρακτηριστικό,vbΤόμος αγνοείται. Δεν διατίθεται στο Macintosh. |
| vbDirectory | 16 | Καθορίζει καταλόγους ή φακέλους εκτός από αρχεία χωρίς χαρακτηριστικά. |
| vbAlias | 64 | Το καθορισμένο όνομα αρχείου είναι ψευδώνυμο. Διατίθεται μόνο στο Macintosh. |
Προγραμματισμός VBA | Το Code Generator λειτουργεί για εσάς!
Παραδείγματα συνάρτησης Excel VBA Dir
Για να παραθέσετε τους φακέλους και τα αρχεία στη μονάδα δίσκου C, μπορείτε να χρησιμοποιήσετε τον ακόλουθο κώδικα.
| 123456789101112131415161718192021222324 | Sub Dir_Example ()Dim αρχείο Όνομα ως συμβολοσειράDim fullName As StringDim rng As RangeDim i As IntegerΟρισμός rng = Εύρος ("A1")fileName = Dir ("C: \", vbDirectory)i = 1ΚάνωfullName = "C: \" & όνομα αρχείουrng.Offset (i, 0) = όνομα αρχείουrng.Offset (i, 1) = FileDateTime (fullName)rng.Offset (i, 2) = FileLen (fullName)rng. Offset (i, 3) = GetAttr (fullName)όνομα αρχείου = ΔιεύθυνσηΑν fileName = "" Τότε Έξοδος Doi = i + 1ΒρόχοςΤέλος υπο |
Το αποτέλεσμα θα είναι παρόμοιο με το παρακάτω.
Λειτουργία VBA Dir στην Access VBA
Η λειτουργία VBA Dir λειτουργεί στην Access VBA με τον ίδιο τρόπο όπως και στο Excel VBA.
| 123456789 | Συνάρτηση CreateDirectory (strP As String) Ως BooleanΕάν Len (Dir (strP, vbDirectory)) = 0 ΤότεMkDir strPΤέλος εανCreateDirectory = ΣωστόΛειτουργία εξόδουκατάληξη:CreateDirectory = ΛάθοςΛειτουργία Τέλους |
