FileCopy Beskrivelse
Kopierer en fil fra en katalog til en annen.
Enkle FileCopy -eksempler
| 1 | FileCopy "C: \ Test.txt" "D: \" |
Dette vil kopiere filen "Test.txt" på "C: \" til D -stasjonen.
Hvis filen "Test.txt" ikke finnes på "C: \", vil det oppstå en kjøretidsfeil '53': Filen ble ikke funnet.
FileCopy Syntax
I VBA Editor kan du skrive "FileCopy (" for å se syntaksen for FileCopy Statement:
FileCopy -setningen inneholder 2 argumenter:
Kilde: Filnavn for fil som skal kopieres. Kan inkludere sti.
Mål: Strykeuttrykk som angir målfilnavnet. Destinasjonen kan inneholde katalog eller mappe og stasjon.
Eksempler på Excel VBA FileCopy -funksjon
Test med følgende kode.
| 123456789101112131415161718192021222324252627282930 | Sub FileCopy_Example ()Dim dlgFilePicker As FileDialogDim dlgFileSaveAs Som FileDialogDim strOrgFile As StringDim strTarFile As StringSett dlgFilePicker = Application.FileDialog (msoFileDialogFilePicker)dlgFilePicker.AllowMultiSelect = FalsedlgFilePicker.ButtonName = "Kopier"dlgFilePicker.Title = "Velg en fil du vil kopiere"If dlgFilePicker.Show = True ThenstrOrgFile = dlgFilePicker.SelectedItems (1)EllersAvslutt SubSlutt omSett dlgFileSaveAs = Application.FileDialog (msoFileDialogSaveAs)dlgFileSaveAs.Title = "Angi en mappe og skriv et filnavn."dlgFileSaveAs.ButtonName = "Lim inn"If dlgFileSaveAs.Show = True ThenstrTarFile = dlgFileSaveAs.SelectedItems (1)EllersAvslutt SubSlutt omFileCopy strOrgFile, strTarFileSlutt Sub |
Når du kjører den, vises en dialogboks "Velg en fil du vil kopiere" først.
Deretter bør du velge en fil du vil kopiere.
Etter at du har valgt en fil, klikker du på knappen "Kopier".
Deretter vil det vise en dialogboks "Vennligst angi en mappe og skriv et filnavn".
Du bør velge en målmappe og skrive et filnavn.
Deretter klikker du på knappen "Lim inn".
Deretter vil kildefilen kopieres med målmappen og filnavnet.
