codice:
Private Sub subFile_Xcopy(ByVal sSource As String, ByVal
    sDestination As String, ByVal bOverwrite As Boolean)
    Dim fs As New Scripting.FileSystemObject
    On Error Resume Next
    fs.CopyFolder sSource, sDestination, bOverwrite
End Sub

Private Sub xx_Copy()
    Dim fs As New Scripting.FileSystemObject, f As Scripting.file, p As Scripting.Folder
    For Each f In fs.GetFolder(temp).Files
        fs.CopyFile f.Path, sDestination, bOverwrite
    Next
    For Each p In fs.GetFolder(temp).SubFolders
        'Recurse
    Next
end sub
non testato prova