Prøv det venligst sådan her.
Kopier eller flyt én fil
For en fil kan du bruge VBA Name og FileCopy funktionen og for hele mapper eller mange filer skal du bruge de andre makro eksempler på denne side.
Sub Copy_One_File()
FileCopy "C:\Users\Ron\SourceFolder\Test.xls", "C:\Users\Ron\DestFolder\Test.xls"
End Sub
Sub Move_Rename_One_File()
'Du kan ændre stien og filnavnet
Navngiv "C:\Users\Ron\SourceFolder\Test.xls" Som "C:\Users\Ron\DestFolder\TestNew.xls"
End Sub
Kopier eller flyt flere filer eller komplette mapper
Bemærk: Læs de kommenterede kodelinjer i koden
Sub Copy_Folder()
'Dette eksempel kopierer alle filer og undermapper fra FromPath til ToPath.
'Bemærk: Hvis ToPath allerede eksisterer, vil den overskrive eksisterende filer i denne mappe
'Hvis ToPath ikke eksisterer, bliver den lavet til dig.
Dæmp FSO som objekt
Dim FromPath As String
Dæmp ToPath som streng
FromPath = "C:\Users\Ron\Data" '<< Skift
ToPath = "C:\Users\Ron\Test" '<< Skift
'Hvis du vil lave en sikkerhedskopi af din mappe, hver gang du kører denne makro
'Du kan oprette en unik mappe med et Dato/Time-stempel.
'ToPath = "C:\Users\Ron\" & Format(Nu, "åååå-mm-dd h-mm-ss")
Hvis Right(FromPath, 1) = "\" Så
FromPath = Left(FromPath, Len(FromPath) - 1)
End If
Hvis Right(ToPath, 1) = "\" Så
ToPath = Left(ToPath, Len(ToPath) - 1)
End If
Indstil FSO = CreateObject("scripting.filesystemobject")
Hvis FSO.FolderExists(FromPath) = False Så
MsgBox FromPath & "eksisterer ikke"
Exit Sub
End If
FSO.CopyFolder Source:=FromPath, Destination:=ToPath
MsgBox "Du kan finde filerne og undermapperne fra " & FromPath & " i " & ToPath
End Sub