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