Copy a Folder(File Explorer) and Paste Folder In Different Folder

[VBE313]

**SOLVED**


Sub CopyFileWithFSOBasic(SourceFilePath As String, DestPath As String, OverWrite As Boolean)
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Call FSO.CopyFolder(SourceFilePath, DestPath, OverWrite)
End Sub


Sub FSOCopyFileDemo()
Call CopyFileWithFSOBasic("C:\Users\testname\sourcefolder", "C:\Users\testname\destfolder\", False)
End Sub