I am stuck to find a VBA code to deleted older files

[Ankur Kumar]

Hi all,

I have a vba code which automatically take backup of workbook in different location but i am looking a code which automatically deleted older file of workbook from that folder and rest remain in that folder.



here is my code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next

Application.DisplayAlerts = False

Dim backupfolder As String
backupfolder = "D:\Auto Backup Sales Detail\Closed\"
ThisWorkbook.SaveCopyAs Filename:=backupfolder & " " & Format(Now, "dd-mmm-yy h-mm-ss") & " " & ActiveWorkbook.Name
ThisWorkbook.Save
Application.DisplayAlerts = True
 
End Sub

Thanks!
Ankur

 

[charlesdh]

Hi,
If you want to keep only the latest file you can loop thru the
BackUp folder and delete them prior to saving the new workbook.
They'r maybe code examples in this forum.