Πώς να ελέγξετε αν ένα αρχείο υπάρχει σε VB6

προγραμματιστές θα πρέπει να ελέγξετε για την ύπαρξη ενός αρχείου πριν επιχειρήσετε να το χειριστείτε . Εάν ένας προγραμματιστής επιχειρεί να χρησιμοποιήσει ένα αρχείο που δεν είναι του παρόντος , η αίτηση μπορεί να αποτύχει ή να παράγουν ανακριβή αποτελέσματα . VB6 , επίσης γνωστό ως Visual Basic 6 , δεν έχει μια λειτουργία που ονομάζεται "Δείτε αν υπάρχει αυτό το αρχείο . " Ωστόσο , δεν σας επιτρέπουν να ανιχνεύουν την παρουσία του οποιουδήποτε αρχείου σε έναν υπολογιστή χρησιμοποιώντας μια έμμεση μέθοδο . Οδηγίες
Η 1

Ξεκινήστε με την εφαρμογή VB6 και πατήστε το πλήκτρο " Ctrl " και " N " για να ανοίξετε το παράθυρο " New Project" . 2

Κάντε διπλό κλικ στο "Standard EXEC " για να δημιουργήσετε ένα νέο έργο . VB6 εμφανίζει μια κενή φόρμα στο παράθυρο επεξεργασίας του .
Εικόνων 3

Κάντε διπλό κλικ στο πλήκτρο "Command " που βρίσκεται στην εργαλειοθήκη για να το τοποθετήσετε στη φόρμα .
Η 4 <. p> κάντε δεξί κλικ σε αυτό το κουμπί και κάντε κλικ στο " Προβολή κώδικα " για να δείτε το παράθυρο κώδικα
5

Τοποθετήστε τον ακόλουθο κώδικα πριν από το " End Sub" δήλωση που βλέπετε στον κώδικα :

Dim fileToCheck Όπως String Dim

Fileexists Όπως Boolean

Dim DirectoryName Όπως String

Αυτός ο κώδικας ορίζει τρεις μεταβλητές . Η " fileToCheck " μεταβλητή κρατά το όνομα του αρχείου του οποίου η ύπαρξη θέλετε να ανιχνεύσει . Η " Fileexists " μεταβλητή κρατά " True" ή " Λάθος " ανάλογα με το αν υπάρχει το αρχείο . VB6 αποθηκεύει όνομα καταλόγου του αρχείου στη μεταβλητή με το όνομα " DirectoryName " αν υπάρχει το αρχείο
Η

6 Τοποθετήστε τον ακόλουθο κώδικα κάτω από τον κώδικα που αναφέρονται στο προηγούμενο βήμα : .

FileToCheck = " C \\ : SomeFolder \\ SomeFile.txt "

DirectoryName = Dir ( fileToCheck )

Εάν DirectoryName = " " τότε

Fileexists = False

Else

Fileexists = True

End If

MsgBox Fileexists

Αντικαταστήστε το " C : \\ SomeFolder \\ SomeFile.txt " με το πλήρες όνομα διαδρομής του αρχείου που θέλετε να ελέγξετε . Για παράδειγμα , αν θέλετε να δείτε αν ένα αρχείο με το όνομα " music.jpg » υπάρχει σε ένα φάκελο που ονομάζεται " Media " στο " D" δίσκο , αντικαταστήστε το " C : \\ SomeFolder \\ SomeFile.txt " με " D : \\ Media \\ music.jpg . " Η επόμενη γραμμή κώδικα εκτελεί τη λειτουργία " Dir" . Εξετάζει την αξία της " fileToCheck . " Εάν η εντολή "dir" βρίσκει το συγκεκριμένο αρχείο , αποθηκεύει το όνομα του κατάλογο στη μεταβλητή με το όνομα " DirectoryName . " Διαφορετικά , θα αποθηκεύει μια κενή τιμή .
Η

7 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε την εφαρμογή . Όταν εμφανιστεί η φόρμα , κάντε κλικ στο κουμπί . Ο κώδικας εκτελείται , καθώς και ένα πλαίσιο μηνύματος εμφανίζει " True" αν υπάρχει το αρχείο που ελέγχονται για . Αν αυτό το αρχείο δεν υπάρχει , το πλαίσιο μηνύματος εμφανίζει το μήνυμα " Λάθος ".
Η
εικόνων