FileCopy Beskrivelse
Kopierer en fil fra et bibliotek til et andet.
Enkle FileCopy -eksempler
| 1 | FileCopy "C: \ Test.txt" "D: \" |
Dette kopierer filen "Test.txt" på "C: \" til D -drevet.
Hvis filen "Test.txt" ikke findes på "C: \", vil der forekomme en Run-time fejl '53': Filen blev ikke fundet.
FileCopy Syntax
I VBA Editor kan du skrive "FileCopy (" for at se syntaksen for FileCopy Statement:
FileCopy -sætningen indeholder 2 argumenter:
Kilde: Filens strengnavn, der skal kopieres. Kan indeholde sti.
Bestemmelsessted: Stringudtryk, der angiver målfilnavnet. Destinationen kan omfatte bibliotek eller mappe og drev.
Eksempler på Excel VBA FileCopy -funktion
Test venligst med følgende kode.
| 123456789101112131415161718192021222324252627282930 | Sub FileCopy_Example ()Dim dlgFilePicker Som FileDialogDim dlgFileSaveAs som FileDialogDim strOrgFile som strengDim strTarFile Som strengIndstil dlgFilePicker = Application.FileDialog (msoFileDialogFilePicker)dlgFilePicker.AllowMultiSelect = FalskdlgFilePicker.ButtonName = "Kopiér"dlgFilePicker.Title = "Vælg en fil, der skal kopieres"Hvis dlgFilePicker.Show = True derefterstrOrgFile = dlgFilePicker.SelectedItems (1)AndetAfslut SubAfslut HvisIndstil dlgFileSaveAs = Application.FileDialog (msoFileDialogSaveAs)dlgFileSaveAs.Title = "Angiv venligst en mappe, og skriv et filnavn."dlgFileSaveAs.ButtonName = "Indsæt"Hvis dlgFileSaveAs.Show = True derefterstrTarFile = dlgFileSaveAs.SelectedItems (1)AndetAfslut SubAfslut HvisFileCopy strOrgFile, strTarFileAfslut Sub |
Når den køres, vises der først en dialogboks "Vælg en fil, der skal kopieres".
Derefter skal du vælge en fil, der skal kopieres.
Når du har valgt en fil, skal du klikke på knappen "Kopier".
Derefter vises en dialogboks "Angiv venligst en mappe, og skriv et filnavn".
Du skal vælge en destinationsmappe og skrive et filnavn.
Klik derefter på knappen "Indsæt".
Derefter kopieres kildefilen med destinationsmappen og filnavnet.
