Private Sub Command1_Click()
    ' FileSystemObject のインスタンスを取得します。
    Dim fso As New FileSystemObject
   
    'コピー元フォルダをコピー先にコピー
    'コピー元 D:\Temp、コピー先D:\work
    'コピー先に同名のフォルダがあればエラー
    With fso
        .CopyFolder "D:\Temp", "D:\work", False
    End With

End Sub

Option Explicit

'ファイルを操作する関数の宣言
Declare Function SHFileOperation Lib "shell32.dll" Alias _
        "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

' どの操作を行うかを示す定数の宣言
Public Const FO_COPY = &H2&
Public Const FOF_ALLOWUNDO = &H40&

'ファイル操作に関する情報を定義する構造体
Type SHFILEOPSTRUCT
    hWnd    As Long
    wFunc   As Long
    pFrom   As String
    pTo     As String
    fFlags As Long
    fAnyOperationsAborted   As Long
    hNameMappings   As Long
    lpszProgressTitle   As String
End Type

Private Sub Command1_Click()
    Dim utdShellOpStruct As SHFILEOPSTRUCT
    Dim lngWin32apiResultCode As Long
    
    'ファイル操作に関する情報を指定
    With utdShellOpStruct
        '進行状況を表示するダイアログの
        '親ウィンドウハンドルを指定
        .hWnd = Form1.hWnd
        '実行する操作に[コピー]を指定
        .wFunc = FO_COPY
        'コピー元のフォルダを指定
        .pFrom = "D:\Temp"
        'コピー先のフォルダを指定
        .pTo = "D:\Work"
        'ファイル操作のフラグを指定
        .fFlags = FOF_ALLOWUNDO
    End With
    'ファイル操作を実行
    lngWin32apiResultCode = SHFileOperation(utdShellOpStruct)

End Sub