DeleteNoTXTFiles "e:\test"
WScript.Echo "Fertig!"
 
Sub DeleteNoTXTFiles(Pfad)
  Dim FSO, Verzeichnis, Unterverzeichnis, Datei
 
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set Verzeichnis = FSO.GetFolder(Pfad)
 
  For Each Datei In Verzeichnis.Files
    If Not LCase(FSO.GetExtensionName(Datei.Path)) = "txt" Then
      FSO.DeleteFile(Datei.Path)
    End If
  Next
 
  For Each Unterverzeichnis In Verzeichnis.Subfolders
    DeleteNoTXTFiles Unterverzeichnis
  Next
End Sub