Περιγραφή FileCopy
Αντιγράφει ένα αρχείο από τον έναν κατάλογο στον άλλο.
Απλά Παραδείγματα FileCopy
1 | FileCopy "C: \ Test.txt" "D: \" |
Αυτό θα αντιγράψει το αρχείο "Test.txt" στο "C: \" στη μονάδα δίσκου D.
Εάν το αρχείο "Test.txt" δεν υπάρχει στο "C: \", θα εμφανιστεί σφάλμα χρόνου εκτέλεσης '53': Το αρχείο δεν βρέθηκε.
Σύνταξη FileCopy
Στο πρόγραμμα επεξεργασίας VBA, μπορείτε να πληκτρολογήσετε "FileCopy (" για να δείτε τη σύνταξη για τη δήλωση FileCopy:
Η δήλωση FileCopy περιέχει 2 ορίσματα:
Πηγή: Όνομα συμβολοσειράς αρχείου για αντιγραφή. Μπορεί να περιλαμβάνει διαδρομή.
Προορισμός: Παράσταση συμβολοσειράς που καθορίζει το όνομα του αρχείου προορισμού. Ο προορισμός μπορεί να περιλαμβάνει κατάλογο ή φάκελο και μονάδα δίσκου.
Παραδείγματα της συνάρτησης Excel VBA FileCopy
Δοκιμάστε με τον ακόλουθο κωδικό.
123456789101112131415161718192021222324252627282930 | Sub FileCopy_Example ()Dim dlgFilePicker Ως FileDialogDim dlgFileSaveAs As FileDialogDim strOrgFile As StringDim strTarFile As StringΟρισμός dlgFilePicker = Application.FileDialog (msoFileDialogFilePicker)dlgFilePicker.AllowMultiSelect = ΛάθοςdlgFilePicker.ButtonName = "Αντιγραφή"dlgFilePicker.Title = "Επιλέξτε ένα αρχείο για αντιγραφή"Εάν dlgFilePicker.Show = True ΤότεstrOrgFile = dlgFilePicker.SelectedItems (1)ΑλλούΈξοδος SubΤέλος εανΟρισμός dlgFileSaveAs = Application.FileDialog (msoFileDialogSaveAs)dlgFileSaveAs.Title = "Υποδείξτε έναν φάκελο και γράψτε ένα όνομα αρχείου."dlgFileSaveAs.ButtonName = "Επικόλληση"If dlgFileSaveAs.Show = True ΤότεstrTarFile = dlgFileSaveAs.SelectedItems (1)ΑλλούΈξοδος SubΤέλος εανFileCopy strOrgFile, strTarFileΤέλος υπο |
Εκτελώντας το, θα εμφανιστεί ένα παράθυρο διαλόγου "Επιλέξτε ένα αρχείο για αντιγραφή" στην αρχή.
Στη συνέχεια, θα πρέπει να επιλέξετε ένα αρχείο για αντιγραφή.
Αφού επιλέξετε ένα αρχείο, κάντε κλικ στο κουμπί "Αντιγραφή".
Στη συνέχεια, θα εμφανιστεί ένα παράθυρο διαλόγου "Παρακαλώ υποδείξτε έναν φάκελο και γράψτε ένα όνομα αρχείου".
Θα πρέπει να επιλέξετε έναν φάκελο προορισμού και να γράψετε ένα όνομα αρχείου.
Στη συνέχεια, κάντε κλικ στο κουμπί "Επικόλληση".
Στη συνέχεια, το αρχείο προέλευσης θα αντιγραφεί με το φάκελο προορισμού και το όνομα αρχείου.