Folder Copy

The VBA alternative would need to verify that the folder existed and then loop through all the files in that folder, copying each, one at a time.

Public Function CopyFolder(ByVal source As String, _ 
                    ByVal destination As String) 
Dim fso As New Scripting.FileSystemObject 
   On Error GoTo errHandler 
   fso.CopyFolder source, destination 
   Set fso = Nothing 
Exit Function