Ordner kopieren und umbenennen

Frage: Ich möchte einen bekannten Ordner "ZZZ" mit seinem Inhalt von einem bestimmten Ort "C:\Hallo" an einen anderen bestimmten Ort kopieren z.B. "D:\Hallo".
Dort muss dann der Ordnername von "ZZZ" in "YYY "umbenannt werden.
Im kopierten Ordner befindet sich eine Excel Datei, die dann in "aaa.xls" umbenannt werden soll. Wie geht das?

Option Explicit
' Die vier Konstanten anpassen!!!
Const strFolderPath As String = "C:\Temp\"
Const strFolderQ As String = "Test\"
Const strFolderZ As String = "E:\Software\"
Const strFolderZNew As String = "Fertig\"
Public Sub Main()
    Dim objFolder As Object
    Dim objFSO As Object
    On Error GoTo Fin
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.Getfolder(strFolderPath & strFolderQ)
    objFolder.Copy (strFolderZ)
    ' Name TestMappe.xls anpassen!!!
    Name strFolderZ & strFolderQ & "TestMappe.xls" As _
        strFolderZ & strFolderQ & "Irgendwas.xls"
    Name strFolderZ & strFolderQ As strFolderZ & strFolderZNew
Fin:
    If Err.Number <> 0 Then MsgBox "Error: " & _
        Err.Number & " " & Err.Description
    Set objFolder = Nothing
    Set objFSO = Nothing
End Sub

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...