Private Declare Function SHFileOperation _
                Lib "shell32.dll" _
                Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

    Dim tFileOpStruct As SHFILEOPSTRUCT
 
    On Error GoTo ErrorHandler
 
        With tFileOpStruct
 
            .fFlags = FOF_SILENT Or FOF_NOCONFIRMATION Or FOF_NOERRORUI Or _
              FOF_NOCONFIRMMKDIR
            .pFrom = "c:\temp" & vbNullChar & vbNullChar
            .pTo = "c:\test" & vbNullChar & vbNullChar
            .wFunc = FO_MOVE
 
        End With
 
        If SHFileOperation(tFileOpStruct) = 0 Then
 
            MoveDirectory = True
 
        End If
 
    Exit Function
 
ErrorHandler: