Prosim poskusite takole.
Kopiraj ali premakni eno datoteko
Za eno datoteko lahko uporabite funkcijo VBA Name in FileCopy, za celotne mape ali veliko datotek pa uporabite druge primere makra na tej strani.
Podkopija_ena_datoteka()
    FileCopy "C:\Users\Ron\SourceFolder\Test.xls", "C:\Users\Ron\DestFolder\Test.xls"
End Sub
Sub Move_Rename_One_File()
»Lahko spremenite pot in ime datoteke
    Poimenujte "C:\Users\Ron\SourceFolder\Test.xls" kot "C:\Users\Ron\DestFolder\TestNew.xls"
End Sub
Kopirajte ali premaknite več datotek ali dokončajte mape
Opomba: preberite komentirane vrstice kode v kodi
Podkopija_mapa()
Ta primer kopira vse datoteke in podmape iz FromPath v ToPath.
Opomba: Če ToPath že obstaja, bo prepisal obstoječe datoteke v tej mapi
'Če ToPath ne obstaja, bo narejen za vas.
    Dim FSO kot objekt
    Dim FromPath kot niz
    Zatemni ToPath kot niz
    FromPath = "C:\Users\Ron\Data" '<< Spremeni
    ToPath = "C:\Users\Ron\Test" '<< Spremeni
    »Če želite ustvariti varnostno kopijo svoje mape vsakič, ko zaženete ta makro
    »Lahko ustvarite edinstveno mapo z datumom/časom.
    'ToPath = "C:\Users\Ron\" & Format(Zdaj, "yyyy-mm-dd h-mm-ss")
    Če je Right(FromPath, 1) = "\" Potem
        OdPoti = Levo(OdPoti, Len(OdPoti) - 1)
    Konec Če
    Če je desno (ToPath, 1) = "\" Potem
        ToPath = levo(ToPath, Len(ToPath) - 1)
    Konec Če
    Nastavite FSO = CreateObject("scripting.filesystemobject")
    Če je FSO.FolderExists(FromPath) = False, potem
        MsgBox FromPath & "ne obstaja"
        Exit Sub
    Konec Če
    FSO.CopyFolder Vir:=FromPath, Destination:=ToPath
    MsgBox "Datoteke in podmape lahko najdete iz " & FromPath & " v " & ToPath
End Sub