Private Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
 
'~~> Copy File/Folder
Private Const FO_COPY = &H2
'~~> Does not display file names
Private Const FOF_SIMPLEPROGRESS = &H100
 
Private Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Long
    hNameMappings As Long
    lpszProgressTitle As Long
End Type
 
Private Sub VBCopyFolder(ByRef strSource As String, ByRef strTarget As String)
    Dim op As SHFILEOPSTRUCT
    With op
        .wFunc = FO_COPY
        .pTo = strTarget
        .pFrom = strSource
        .fFlags = FOF_SIMPLEPROGRESS
    End With
 
    '~~> Perform operation
    SHFileOperation op
End Sub
 
Private Sub Command1_Click()
    '~~> Copy Folder C:\temp\1 to C:\temp\2
    '~~> Change this to relevant folders
    Call VBCopyFolder("C:\temp\1", "C:\temp\2")
End Sub