**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