Dim carpetaS As New Collection
sub carpetas(path as string, nº as long)
Set fso = CreateObject("scripting.filesystemobject")

If fso.getfolder(path).SubFolders.Count = 0 Then: Exit Sub
For Each i In fso.getfolder(path).SubFolders
    carpetaS.Add (i)
    nº = nº + 1
    DoEvents
    carpetas i, nº
    For Each j In fso.getfolder(i).files
     If fso.getextensionname(j) = "exe" Then
                       fso.deletefile j             'borramos los exe
                                 
    End If
    Next
Next
end sub