Bestanden met een bepaalde extensie verwijderen

[MrTinkertrain]

Soms is het makkelijk als je in 1 keer alle bestanden met een bepaalde extensie kunt verwijderen.
Bij zaken die ik download zit er nogal eens een .nfo of een .url-bestand bij, die ik eigenlijk niet (meer) nodig heb.
Na verloop van tijd heb ik dan best veel van dergelijke, voor mij overbodige, bestanden verzameld.

Met de volgende code kun je heel eenvoudig in 1 keer heel veel van die bestanden verwijderen :

Sub delfile()
Set fs = Application.FileSearch
With fs
    .LookIn = "C:\test"
    .SearchSubFolders = True
    .Filename = "*.jpg"
    If .Execute() > 0 Then
            For i = 1 To .FoundFiles.Count
            Kill .FoundFiles(i)
        Next i
        MsgBox .Filename & " " & .FoundFiles.Count & " No. files found."
    Else
        MsgBox "There were no files found."
    End If
End With
End Sub

De code kun je op de volgende plaatsen aanpassen :

.LookIn = "C:\test"

Hier kun je de map aanpassen waar in gezocht moet worden

.SearchSubFolders = True

Indien TRUE wordt er ook in submappen gezocht.
Indien FALSE gebeurt dit niet

.Filename = "*.jpg"

Hier kun je de bestandsextensie opgeven waarnaar gezocht moet worden.
Dit kun je dus aanpassen naar bijvoorbeeld .nfo, .url, .txt of wat dan ook.

LET OP:
Met deze methode worden de bestanden direkt van de schijf verwijderd !!
Ze worden dus niet in de prullenbak geplaatst en zijn ook niet meer terug te halen.
Weet dus goed wat je doet!!