Bestanden verwijderen mbv vba

[MaxExcel]

Ik las in een andere topic dat je met het:

Kill C:\mapnaam\file*.xls

Bestanden kan verwijderen die beginnen met file en eindigen met xls.

De formule werkt perfect, alleen mocht er geen bestand in de map staan die begint met file dan krijg ik een macro error.

Weet iemand hoe ik hem zo kan programmeren dat hij die lijn skipt als er geen bestanden zijn die beginnen met file?

 

[Roncancio]

Sub Verwijderen()
With Application.FileSearch
    .LookIn = "C:\Mapnaam"
    .FileType = msoFileTypeExcelWorkbooks
    .Filename = "file*"
    If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
        For i = 1 To .FoundFiles.Count
            Kill .FoundFiles(i)
        Next
    End If
End With

End Sub

Met vriendelijke groet,


Roncancio