Macro to delete backup files in folder and sub-folder

[howard]

I would like to to delete all back files eg Backup TB in folder TB as well as sub-folders

 

[howard]

Thanks for the reply. When running the macro the backup files (xlk) files in the folder C:\test and its sub-folders is not deleted

 

[Br0ck]

Since those names are starting with "backup", the wildcard * needs to be on the other side. If you want to delete files with the name "backup" and it could have other text or numbers on either side, just use the wildcard on both sides (*backup*.*).

Just run the macro called "run" on sample files and subfolders from a module. Just change the wildcard * for your needs.

Option Explicit
Option Compare Text

Sub DeleteBackupFiles(ByVal FolderPath As String)
    ' Author:  Leith Ross
    Dim File As Object
    Dim Folder As Object
    Dim FSO As Object
    Dim SubFolder As Object
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Folder = FSO.GetFolder(FolderPath)
            
    For Each File In Folder.Files
        If File.Name Like "[COLOR=#ff0000]*backup*[/COLOR].*" Then
           File.Delete
        End If
    Next File
                
    For Each SubFolder In Folder.SubFolders
        DeleteBackupFiles SubFolder
    Next SubFolder
                
End Sub

Sub Run()
    DeleteBackupFiles "C:\test"
End Sub

 

[howard]

Thanks for the help, code works perfectly