Delete Old Backup copies after new back up is created and saved

[JEH0714]

I have this code that I got from another source and what I am trying to do is delete the old copies of this back up so that there is only the most recent backup copy. If you could point me in the right direction that would be greatly appreciated.
Thank you

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.EnableEvents = False
    thisPath = ThisWorkbook.Path
    myName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".") - 1))
    ext = Right(ThisWorkbook.Name, Len(ThisWorkbook.Name) - InStrRev(ThisWorkbook.Name, "."))
    backupdirectory = myName & " backups"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If Not FSO.FolderExists(ThisWorkbook.Path & "/" & backupdirectory) Then
        FSO.CreateFolder (ThisWorkbook.Path & "/" & backupdirectory)
    End If
    t = Format(Now, "mmm dd yyyy hh mm ss")
    ThisWorkbook.SaveCopyAs thisPath & "\" & backupdirectory & "\" & myName & " " & t & "." & ext
    Application.EnableEvents = True
End Sub

 

[JEH0714]

I cross posted this to another forum. I just want to make sure I am doing this right.

https://www.excelforum.com/excel-pr...s-after-new-back-up-is-created-and-saved.html