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