Excel макрос, чтобы переместить все вложенные папки в другое место

Question

Я только знаю, чтобы написать макрос, чтобы скопировать файл из папки А в папку B

FileCopy "C:\Documents\Folder A\test.xlsx", "C:\Documents\Folder B\test.xlsx" 

Может кто-нибудь помочь в макрос Excel, чтобы переместить все вложенные папки и файлы в разделе «Папка А» на «Папка B». Спасибо

Answer 1

PL Попробуйте следующее: сменить папки согласно вашим требованиям.

Sub Copy_Folder() 
'This example copy all files and subfolders from FromPath to ToPath. 
'Note: If ToPath already exist it will overwrite existing files in this folder 
'if ToPath not exist it will be made for you. 
    Dim FSO As Object 
    Dim FromPath As String 
    Dim ToPath As String 

    FromPath = "C:\Process_Contract_Notes" '<< Change 
    ToPath = "C:\Process" '<< Change 


    If Right(FromPath, 1) = "\" Then 
     FromPath = Left(FromPath, Len(FromPath) - 1) 
    End If 

    If Right(ToPath, 1) = "\" Then 
     ToPath = Left(ToPath, Len(ToPath) - 1) 
    End If 

    Set FSO = CreateObject("scripting.filesystemobject") 

    If FSO.FolderExists(FromPath) = False Then 
     MsgBox FromPath & " doesn't exist" 
     Exit Sub 
    End If 

    FSO.CopyFolder Source:=FromPath, Destination:=ToPath 
    MsgBox "You can find the files and subfolders from " & FromPath & " in " & ToPath 

End Sub