CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to copy all folders and files from one location to another location
Option Explicit
 
Sub Main()
'This will copy all folders in D:\Test\ to C:\Temp
    Dim oFSO As New Scripting.FileSystemObject
    Set oFSO = New FileSystemObject
    oFSO.CopyFolder "D:\Test\*", "C:\Temp\", False
    Set oFSO = Nothing
End Sub