Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

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

Χρησιμοποιώντας μια μεταβλητή με τη λειτουργία " Dir" στην εφαρμογή της Visual Basic σας να κάνετε την αίτησή σας πιο δυναμική με το να μην χρειάζεται να χρησιμοποιούν μόνο μία διαδρομή . Η λειτουργία " Dir" επιστρέφει ένα string που αντιπροσωπεύει το όνομα ενός αρχείου , καταλόγου ή ένα φάκελο που αντιστοιχεί σε ένα συγκεκριμένο μοτίβο , όπως " * . Xlslx . " Η λειτουργία υποστηρίζει άγρια ​​χαρακτήρες για να καθορίσετε πολλαπλά αρχεία . Χρησιμοποιήστε τη μεταβλητή για να ορίσετε την διαδρομή την πρώτη φορά και να χρησιμοποιήσετε τη λειτουργία " Dir" από μόνη της να ανακτήσει το επόμενο στοιχείο . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Studio
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

την εφαρμογή Microsoft Visual Studio , κάντε κλικ στο " New Project" από το αριστερό τμήμα του παραθύρου της οθόνης του υπολογιστή σας και να επεκτείνουν " Visual Basic " κάτω " εγκατεστημένα πρότυπα . " Κάντε κλικ στο "Windows" και κάντε διπλό κλικ στο " Εφαρμογή κονσόλας " από το κέντρο του παραθύρου διαλόγου για να δημιουργήσετε ένα νέο έργο κονσόλα 2

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

Dim myfile Όπως String Dim

mypath Όπως String
εικόνων 3

Ορίστε τη διαδρομή όπου θέλετε να ψάξετε για τα αρχεία με τη χρήση του " mypath " μεταβλητή :

mypath = " C : \\ myExcelFiles \\ "
Η 4

Χρησιμοποιήστε το " mypath " μεταβλητή και το " * xlsx . " επέκταση να πάρει το πρώτο αρχείο χρησιμοποιώντας το " Dir" λειτουργία :

myfile = Dir ( mypath & " * . xlsx " )
5

Δημιουργήστε μια " While ... Loop " για να αναζητήσετε περισσότερα αρχεία στον ίδιο δρόμο και να εμφανίσει τους μέσω της κονσόλας παράθυρο :

Do While myfile <> " "

Αν ( GetAttr ( mypath & myfile ) και vbDirectory ) <> vbDirectory τότε

Console.WriteLine ( myfile )

End If

myfile = Dir ( )

Loop

Console.ReadLine ( )
Η 6

τύπου " F5 " για να εκτελέσετε το πρόγραμμα .
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα