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