View: - 397
'REFERENCE USED : Microsoft Scripting Runtime Public FSO As Scripting.FileSystemObject Public SourcePath As String Public DestPath As String Public Sub CopyFolder() SourcePath = "C:\new folder" ' Folder you need to Copy. DestPath = "H:\" ' Target folder OR Drive. Set FSO = New Scripting.FileSystemObject FSO.CopyFolder SourcePath, DestPath, False 'True for Overwrite Existing Set FSO = Nothing End Sub
