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

© 2024 Better Solutions Limited. All Rights Reserved. © 2024 Better Solutions Limited TopPrevNext