Πώς να αντιγράψει όλα τα αρχεία σε Visual Basic 6 με το Αρχείο Χαρακτηριστικό

Αντιγραφή καταλόγου των αρχείων μπορεί να αυτοματοποιηθεί σε Visual Basic 6 με τη χρήση του αντικειμένου συστήματος αρχείων , η οποία περιλαμβάνεται ως αντικείμενο σε Visual Basic . Τα πράγματα που θα χρειαστείτε
Visual Basic 6
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ανοίξτε Visual Basic πρόγραμμα επεξεργασίας σας . 2

Δημιουργήστε ένα νέο αρχείο κάνοντας κλικ στο "Αρχείο , " τότε " Νέα ".
εικόνων 3

Δημιουργήστε ένα στιγμιότυπο της FileSystemObject χρησιμοποιώντας τον ακόλουθο κώδικα :

Δημ. FSO , το αρχείο

Set objFSO = CreateObject ( " Scripting.FileSystemObject " )

ο κωδικός αυτός απαιτεί ένα ενσωματωμένο αντικείμενο σε Visual Basic 6 .
Η

4 Ρυθμίστε το φάκελο προέλευσης και η φάκελο προορισμού όπου θα αντιγράψετε τα αρχεία :

strSourceFolder = "c : \\ MyImportantData "

strDestFolder = "c : \\ MyBackupFolder "
5

Ανοίξτε το βρόχο για όλα τα αρχεία στον κατάλογο πηγή: .

για κάθε objFiles σε objFSO.GetFolder ( strSource ) αρχεία
Η 6

Ελέγξτε ότι κάθε αρχείο έχει ένα χαρακτηριστικό που να αρχειοθετήσετε και κλείστε το βρόχο άνοιξε παραπάνω :

Εάν objFiles.attributes και 32 τότε
Η 7

Προσθέστε τον κώδικα για να αντιγράψετε όλα τα αρχεία αρχειοθέτησης από την πηγή στον προορισμό :

objFSO . CopyFile strSource & "\\" & objFiles.Name , strDestination & "\\" & objDir.Name & "\\" & objFiles.Name , OVER_WRITE_FILES

objFiles.attributes = objFiles.attributes - 32

8

Κλείστε το βρόχο και τον τερματισμό της Sub :

Else

Αρχείο atribute δεν έχει οριστεί

End If

End Sub
Τετάρτη 9

Αποθηκεύστε το αρχείο ως αρχείο exe . και εκτελέστε το αρχείο για να αντιγράψετε όλα τα αρχειοθετημένα αρχεία .
Η
εικόνων