non testato provacodice: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