Wenn ich das Script so abspeichere:
deleteFilesInFolderRekursiv "C:\Test", "~*.*"
'/**
' * Rekurisves Löschen von Dateien
' * @param String Pfad des Ordners
' */
Sub deleteFilesInFolderRekursiv(iFldPath, iFileNamePattern)
Dim deletePath 'String
Dim subFld 'Filder
Dim fl 'File
'Die Funktion für jeden Unterordner ausführen
For Each subFld In fso.GetFolder(iFldPath).SubFolders
deleteFilesInFolderRekursiv subFld.Path, iFileNamePattern
Next
'Dateien löschen
For Each fl In fso.GetFolder(iFldPath).Files
If fl.name Like iFileNamePattern Then fl.delete true
Next
End Sub