This is what I have come up with the problem with the code is that it wont go into the sub folders to delete the files with the extensions
Dim fso, counter, sroot, objFSO, x
Dim fld, fls, oFile, dt, oFolder, strWildcardsToDelete
set fso = CreateObject("Scripting.FileSystemObject")
counter = 0...