**SOLVED**
Code: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