Excel VBA να διαγράψετε όλα τα αρχεία σε ένα φάκελο

προγραμματιστές υπολογιστών συχνά δημιουργούν προσωρινά αρχεία που χρησιμοποιούνται στις εφαρμογές τους , και είναι καλή πρακτική προγραμματισμού για να διαγράψετε αυτά τα αρχεία , όταν δεν είναι πλέον σε χρήση . Στη Visual Basic for Applications , το "Kill " δήλωση αυτή είναι διαθέσιμη για να διαγράψετε τα αρχεία από ένα δίσκο . Η δήλωση αυτή παίρνει ένα όρισμα που καθορίζει ένα ή περισσότερα ονόματα αρχείων πρέπει να διαγραφεί . Το επιχείρημα υποστηρίζει επίσης τα άγρια ​​κάρτες, όπως " * " για να καθορίσετε πολλαπλά αρχεία πρέπει να διαγραφούν σε ένα φάκελο . Οδηγίες
Η 1

Εκκίνηση του Excel , κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic" για να ανοίξει το Visual Basic Editor. . Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να προσθέσετε μια νέα ενότητα 2

Δημιουργήστε ένα νέο υπο- διαδικασία στην ενότητα προσθέτοντας τον ακόλουθο κώδικα VBA :

Private . Sub deleteAllFiles ( )
εικόνων 3

Πληκτρολογήστε τον ακόλουθο κώδικα για να δημιουργήσετε μια νέα μεταβλητή και να καθορίσουν τη διαδρομή για τα αρχεία σας :

Dim filePath Όπως String

filePath = " C : . \\ Temp \\ * * "
Η 4

Χρησιμοποιήστε την ακόλουθη γραμμή κώδικα για να διαγράψετε όλα τα αρχεία στο φάκελο που έχετε ορίσει : . Σκότωσε filePath
5

Τέλος υπο - διαδικασία σας, πληκτρολογώντας " End Sub ". Πατήστε το πλήκτρο " F5 " για να εκτελέσει τη διαδικασία .
Η
εικόνων