Script Paradigm

Option Explicit
Call fnCopyFile("new.txt","new2.txt")
Sub fnCopyFile(ByVal strBfreFilePath, ByVal strAftrFilePath)
    Dim fsoTemp
    
    Set fsoTemp = CreateObject("Scripting.FileSystemObject")
    Call fsoTemp.CopyFile(strBfreFilePath, strAftrFilePath, True)
    
    Set fsoTemp = Nothing
End Sub