την εφαρμογή 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 " για να εκτελέσετε το πρόγραμμα .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα