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