Το VBA σάς επιτρέπει να ελέγξετε εάν υπάρχει αρχείο ή φάκελος χρησιμοποιώντας το Διευθυντής λειτουργία.
Χρησιμοποιώντας την εντολή Dir για να ελέγξετε εάν υπάρχει αρχείο
Όπως αναφέραμε στην εισαγωγή, το Διευθυντής η λειτουργία μας επιτρέπει να ελέγξουμε αν υπάρχει επιλεγμένο αρχείο στον υπολογιστή. Εδώ είναι ο κωδικός:
| 123456789101112131415 | Sub CheckFileExists ()Dim strFileName As StringDim strFileExists As StringstrFileName = "C: \ Users \ Nikola \ Desktop \ VBA άρθρα \ Test File Exists.xlsx"strFileExists = Dir (strFileName)If strFileExists = "" ΤότεMsgBox "Το επιλεγμένο αρχείο δεν υπάρχει"ΑλλούMsgBox "Το επιλεγμένο αρχείο υπάρχει"Τέλος εανΤέλος υπο |
Εκχωρήσαμε πρώτα τη διαδρομή αρχείου στη μεταβλητή strFileNameΤο Στη συνέχεια χρησιμοποιούμε το Διευθυντής συνάρτηση για να εισάγετε το όνομα αρχείου στη μεταβλητή strFileExistsΤο Εάν το αρχείο υπάρχει στον κατάλογο, το όνομά του θα αντιστοιχιστεί στη μεταβλητή συμβολοσειράς strFileExistsΤο Αν δεν υπάρχει τότε strFileExists θα παραμείνει κενό. Τέλος, εμφανίζεται το πλαίσιο μηνυμάτων που μας ενημερώνει εάν το αρχείο υπάρχει ή όχι.
Χρησιμοποιώντας την εντολή Dir για να ελέγξετε εάν υπάρχει φάκελος
Ομοίως με τον έλεγχο αν υπάρχει αρχείο, μπορείτε να ελέγξετε εάν υπάρχει φάκελος. Απλά πρέπει να προσθέσετε ένα όρισμα στο Διευθυντής εντολή. Ας δούμε τον κώδικα:
| 123456789101112131415 | Sub CheckFolderExists ()Dim strFolderName As StringDim strFolderExists As StringstrFolderName = "C: \ Users \ Nikola \ Desktop \ VBA άρθρα \ Test Folder \"strFolderExists = Dir (strFolderName, vbDirectory)Εάν strFolderExists = "" ΤότεMsgBox "Ο επιλεγμένος φάκελος δεν υπάρχει"ΑλλούMsgBox "Ο επιλεγμένος φάκελος υπάρχει"Τέλος εανΤέλος υπο |
Εκχωρήσαμε πρώτα τη διαδρομή φακέλου στη μεταβλητή strFolderNameΤο Στη συνέχεια χρησιμοποιούμε το Διευθυντής συνάρτηση για να εισάγετε το όνομα αρχείου στη μεταβλητή strFileExistsΤο Για να ελέγξουμε ένα φάκελο, πρέπει να προσθέσουμε το δεύτερο όρισμα στη συνάρτηση - vbDirecotryΤο Εάν ο φάκελος υπάρχει στον κατάλογο, το όνομά του θα εκχωρηθεί στη μεταβλητή strFolderExistsΤο Αν όχι strFolderExists θα παραμείνει κενό.
