Create Backup File Within A Macro

Here is a simple routine that I use

config.defaultOutputPath is just a variable that sets the default path to where I want the file saved (use the full path, for example C:\temp\)

sourceFile is the orginal file name and path

    Dim fs As FileSystemObject
    Dim bkupFile As File
    Dim fname as String
    
    fname="EARN.xls.bak"
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set bkupFile = fs.GetFile(sourceFile)
    'bkupFile.Copy config.defaultOutputPath, True
    bkupFile.SaveAs config.defaultOutputPath & fname, FileFormat:=xlCSV

'Memory Cleanup
    Set bkupFile = Nothing
    Set fs = Nothing