delete specific jpg files from folders and subfolders using Excel VBA

AndreasHermle,

please see attached workbook.

it has the following macro in it.  Two important points to be taken into account before running the macro.

A) you should change the file path from C:\J  to whatever path your folder with jpg files is.
B) if it happens that you copy this code and put it in another workbook module, then you need to add the "Microsoft Scripting Runtime" as Reference   under the Tools> Reference in VBA  otherwise it will not work.   if you see the attached workbook. the "Microsoft Scripting Runtime" reference is already added into that workbook.

Sub DeleteFiles()
    Call RecursiveFolder("C:\J") ''' change the path
End Sub
 
Sub RecursiveFolder(MyPath As String)
 
    Dim FileSys As FileSystemObject
    Dim objFolder As Folder
    Dim objSubFolder As Folder
    Dim objFile As File
 
    Set FileSys = CreateObject("Scripting.FileSystemObject")
    Set objFolder = FileSys.GetFolder(MyPath)
 
    For Each objFile In objFolder.Files
        If Left(Right(objFile.Name, 5), 1) = "h" Or Left(Right(objFile.Name, 5), 1) = "n" Then
            objFile.Delete
        End If
    Next objFile
 
    For Each objSubFolder In objFolder.SubFolders
        RecursiveFolder MyPath & "\" & objSubFolder.Name
    Next objSubFolder
 
    Set FileSys = Nothing
    Set objFolder = Nothing
    Set objSubFolder = Nothing
    Set objFile = Nothing
 
End Sub

Select all Open in new window

Main.xlsm