Πώς να χρησιμοποιήσετε τη λειτουργία Dir σε VBA

VBA είναι η γλώσσα προγραμματισμού που αναπτύχθηκε και αναπτύσσεται από τη Microsoft Corporation . VBA χρησιμοποιείται για τον προγραμματισμό και να ενισχύσει πολλά προϊόντα της Microsoft , συμπεριλαμβανομένων των διαφόρων εκδόσεων του Microsoft Office . VBA περιέχει μια σειρά από ενσωματωμένες λειτουργίες , όπως η συνάρτηση Dir , που μπορείτε να χρησιμοποιήσετε για να δημιουργήσετε ή να ενισχύσουν τις υπάρχουσες εφαρμογές . Η συνάρτηση Dir χρησιμοποιείται για να επιστρέψει ένα string που αντιπροσωπεύει τα ονόματα των αρχείων , καταλόγων ή καταλόγων των φακέλων . Χρησιμοποιώντας τη συνάρτηση Dir απαιτεί μόνο μερικά απλά βήματα . Οδηγίες
Η

1 Ανοίξτε το Microsoft Word. 2

Κάντε κλικ στο " Εργαλεία ", " Macro " και στη συνέχεια " Visual Basic " για να ανοίξετε το περιβάλλον προγραμματισμού VBA .

με 3

Κάντε κλικ στο " Εισαγωγή" και " ενότητα ".
Η 4

Αυτός ο κώδικας VBA δίνει ένα παράδειγμα για το πώς να χρησιμοποιήσετε τη συνάρτηση Dir να ζητήσει από όλα τα αρχεία που βρίσκονται σε έναν κατάλογο , το drive C: . Η διαδικασία αυτή αποθηκεύει τα επιμέρους ονόματα αρχείων στο " AllFiles " μεταβλητή και στη συνέχεια εμφανίζει αυτό σε ένα πλαίσιο μηνύματος για το χρήστη . Πληκτρολογήστε ή επικολλήστε τον ακόλουθο τμήμα κώδικα στο παράθυρο της λειτουργικής μονάδας :

Sub ShowFiles ( )

Dim NextFile Όπως String Dim

AllFiles Όπως String

AllFiles = " "

NextFile = Dir ( " C : \\ " , 0 )

Ενώ NextFile <> " "

AllFiles = AllFiles & Chr ( 13 ) & NextFile

NextFile = Dir

Wend

MsgBox AllFiles

End Sub
5

Κάντε κλικ στο " Αρχείο" και στη συνέχεια " Αποθήκευση »για να αποθηκεύσετε την εργασία σας .
Η

6 Πατήστε το πλήκτρο" F5 " στο πληκτρολόγιό σας για να τρέξει το πρόγραμμα . Θα πρέπει να δείτε ένα μήνυμα με μια λίστα ονομάτων αρχείων για μονάδα δίσκου C:
Η
εικόνων .