Πώς να βεβαιωθείτε ότι το αρχείο έχει αντιγραφεί σε VB6

Δημιουργία , επεξεργασία, μετακίνηση , αντιγραφή ή διαγραφή είναι κοινές ενέργειες που εκτελούνται σε ένα πρόγραμμα που επεξεργάζεται αρχεία . Οι αιτήσεις θα μπορούσε να λάβει ένα αρχείο από οποιαδήποτε εξωτερική πηγή όπως το ηλεκτρονικό ταχυδρομείο ή άλλη εφαρμογή , να διαβάσετε μέσα από το αρχείο και να εκτελέσει κάποιο είδος της δράσης , όπως η εισαγωγή αυτές τις πληροφορίες σε μια βάση δεδομένων και στη συνέχεια να μετακινήσετε ή να αντιγράψετε το αρχείο σε διαφορετική θέση , δείχνει ότι το αρχείο έχει ήδη υποβληθεί σε επεξεργασία . Το λειτουργικό σύστημα των Windows έχει ένα ενσωματωμένο στο API για να χειριστεί όλες τις προαναφερθείσες λειτουργίες επεξεργασίας αρχείων . Οδηγίες
Η

1 Δημιουργήστε ένα νέο έργο Standard EXE στη Visual Basic . Προσθήκη Microsoft Scripting Runtime για το έργο , επιλέγοντας το "Project ", " Αναφορές ", " Microsoft Scripting Runtime " και κάνοντας κλικ στο " OK" για να αποθηκεύσετε και να κλείσετε την οθόνη . 2

Δημιουργήστε ένα νέο αντικείμενο FileScripting από δηλώνοντας μια μεταβλητή τύπου " Scripting.FileScriptingObject . " Ο κωδικός πρέπει να μοιάζει με :

Δημ. oFile η Νέα Scripting.FileScriptingObject

Αυτή η γραμμή κώδικα θα καθορίσει την μεταβλητή με το όνομα " oFile » και τη δημιουργία του αντικειμένου που μπορεί να αναφέρονται στον κώδικα για να ακολουθήσουν .
εικόνων 3

Προσδιορίστε αν υπάρχει το αρχείο με την κωδικοποίηση της « oFile.FileExists ( filepath ) ", όπου " filepath " είναι το πλήρες όνομα και τη διαδρομή του αρχείου . Το αποτέλεσμα αυτής της λειτουργίας είναι αληθής ή ψευδής . Αν τα αποτελέσματα είναι αλήθεια, τότε υπάρχει το αρχείο και μπορείτε να συνεχίσετε με τη λειτουργία αντιγραφής . Ωστόσο , εάν το αρχείο δεν υπάρχει , θα πρέπει να κώδικα κάποιου είδους λάθος χειρισμό .
Η

4 Αντιγράψτε το αρχείο που αναφέρεται στη μεταβλητή " filepath " σε μια νέα θέση με την κωδικοποίηση αυτή τη γραμμή " oFile.CopyFile filepath , newloc "όπου" newloc " είναι η διαδρομή προς τη νέα θέση . Ένα παράδειγμα της νέας θέσης θα είναι " C : \\ CopiedFiles " ή "D : . \\ Backup " Το όνομα του αρχείου θα παραμείνει η ίδια μέσα στο νέο φάκελο .
5

Βεβαιωθείτε ότι το αρχείο έχει αντιγραφεί με και πάλι με τη μέθοδο της « FileExists " . Για να επιβεβαιώσετε ότι το αρχείο που καθορίζεται στο " filepath " μεταβλητή πήρε αντιγράφονται στη θέση που καθορίζεται στο " newloc " μεταβλητή , να είστε σίγουροι ότι έχετε αποθηκεύσει το άτομο το όνομα του αρχείου σε μια ξεχωριστή μεταβλητή . Για παράδειγμα , ο κωδικός " oFile.FileExists ( newloc & όνομα αρχείου ) " θα επιστρέψει TRUE αν το όνομα του αρχείου στο "filename " αντιγράφηκαν με επιτυχία στο νέο φάκελο .
Η
εικόνων