Private Const FO_COPY As Long = &H2
 
Private Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAborted As Long
    hNameMaps As Long
    sProgress As String
End Type
 
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" ( _
     lpFileOp As SHFILEOPSTRUCT) As Long
 
Public Sub FolderCopyEx(Source As String, Destination As String)
    Dim SHFileOp As SHFILEOPSTRUCT
 
    With SHFileOp
        .wFunc = FO_COPY
        .pFrom = Source
        .pTo = Destination
    End With
 
    SHFileOperation SHFileOp
End Sub