Function Durchsuche(Path$,Types$,Recursive)
   suchmich = ReadDir(Path$)                              ;zu durchsuchender Ordner wird in suchmich gespeichert (lokal!)
   Repeat                                              ;alle dateien in dem Ordner durchsuchen
      Datei$ = NextFile(suchmich)                           ;die nächste Datei in der lokalen! Variablen Datei$ speichern
      If datei <> "." And datei <> ".." And datei <> ""         ;wenn die zu prüfende Datei . .. oder gar keinen Namen hat, überspringe die Prüfung
         If (FileType(path+"\"+datei) = 2) And recursive Then   ;wenn die zu prüfende Datei ein Ordner ist und darunterliegende Ordner durchsucht werden sollen
            Durchsuche(""+Path$+datei$,Types$,Recursive)         ;starte diese Funktion von vorne, mit dem darunterliegenden Ordner
         Else                                       ;wenn die zu prüfende Datei wirklich eine Datei ist...
            For PosCount = 1 To Len(Datei$)                  ;von vorne nach hinten suchen, ob sie den Buchstabe "." enthält
               If Asc (Mid (Datei$,PosCount,1)) = 46 Lastpoint = PosCount
            Next                                    ;jetzt steht in Lastpoint, an welcher Stelle des Dateinamens der letzte Punkt steht
            LastPoint = Len(Datei$)-LastPoint               ;Lastpoint enthält jetzt den ersten Punkt von rechts
            If lastpoint<1 Stop                           ;Eine Sicherheitsabfrage, ob der Dateiname überhaupt einen Punkt enthält
            Extension$ = Right(Datei$,Lastpoint)            ;Extension enthält den Teil des Dateinamensnde, der nach dem letzten punkt kommt
            lastcount = 0                              ;enthält die Position des letzten gefundenen Kommas bzw am Anfang 0
                                                   ;Diese Schleife ist dafür da, dass man mehrere zu suchende Endungen
                                                   ;(mit Komma getrennt) an die Funktion übergeben kann
            For typeCount = 1 To Len(types)
               If Asc(Mid(types,typecount,1)) = 44 Then
                  onetype$=Mid(types,lastcount+1,(typecount-lastcount)-1)
                                                   ;onetype ist das, was in Types$ zwischen dem gerade gefundenen Komma und dem Anfang
                                                   ;oder dem davor gefundenen Komma (Lastcount) steht
                  onetype = Trim(onetype)                  ;entfernt die Leerzeichen am afang und am ende der endung
                                                   ;hier kann man noch mehr einfügen, was die eingabe am Anfang komfortabler macht.
                                                   ;z.B Groß-kleinschreibung ignorieren, endungen mit punkt angeben...                  
                  If Extension$ = onetype$ neu(""+Path$+"\"+datei$)   
                                                   ;stimmt eine gesuchte Endung (onetype) mit der Endung der Datei überein,
                                                   ;wird die Funktion Neu gestartet und die Datei mit Pfad an Sie übergeben
                  lastcount = typecount
               EndIf
            Next
                                                   ;stimmt die letzte gesuchte Endung (onetype) mit der Endung der Datei überein,
                                                   ;wird die Funktion Neu gestartet und die Datei mit Pfad an Sie übergeben
            onetype$=Mid(types,lastcount+1,(typecount-lastcount)-1)
            If Lastpoint>0 And Extension$ = onetype$ neu(""+Path$+"\"+datei$)
         EndIf
      EndIf
   Until datei$ = ""                                    ;bis keine Datei im Ordner mehr übrig ist
End Function

If (FileType (path + "\" + datei) = 2) And recursive Then ;wenn die zu prüfende Datei ein Ordner ist und darunterliegende Ordner durchsucht werden sollen
                Durchsuche ("" + Path$+ datei$,Types$,Recursive)

 Durchsuche ("" + Path$+"\" +datei$,Types$,Recursive)