1 Κάντε κλικ στο κουμπί " Έναρξη " των Windows , και στη συνέχεια κάντε κλικ στο " Microsoft Visual Studio . " 2
Κάντε κλικ στο " Αρχείο ". Επιλέξτε "Άνοιγμα " και στη συνέχεια κάντε διπλό κλικ στο πρόγραμμα της Visual Basic στο οποίο θέλετε να προσθέσετε τη λειτουργία αναζήτησης αρχείων .
Εικόνων 3
Προσθέστε τον ακόλουθο κώδικα μετά την "Δημόσια Shared Function " γραμμή:
FindFiles Λειτουργία (διαδρομή As String , SearchStr As String , πώληση
_
FileCount As Integer , DirCount As Integer )
Dim Όνομα αρχείου Όπως String « όνομα μεταβλητής .
Δημ. dirname As String ' όνομα του υποκαταλόγου .
Δημ. dirNames ( ) As String ' Buffer για όνομα καταλόγου
καταχωρήσεις .
Dim NDIR As Integer 'Ο αριθμός των καταλόγων σε
αυτό το μονοπάτι .
Dim i As Integer «Για βρόχου πάγκο .
On Error GoTo sysFileERR
Αν δεξιά (διαδρομή 1 ) <> " \\ " Τότε path = path & " \\ "
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα