local start$ = "c:\...."

search(start)

Function search(path:String)

   DebugLog "start: " + path
   
   Local dir:Int = ReadDir(path)
   
   Local file:String             ' gefundene Datei oder Verzeichnis
   Local path_file:String    ' absoluter Path mit Datei
   
        ' endlose Schlaufe...
   Repeat
   
      file = NextFile(dir) ' gibt den nächsten Eintrag
            
      path_file = path+"/"+file ' absoluten Path mit Datei verbinden
      
      Select FileType(path_file) ' selectieren nach Filetyp (Datei/Ordner)
      
         Case FILETYPE_DIR
                                                ' hier wurde ein Verzeichnis gefunden
                  debuglog "    D> "+ path_file
                  search(path_file) ' die Function search ruft sich selber auf
            
         Case FILETYPE_FILE
            Select ExtractExt(file)
               Case "bmx"    ' hier könntest du evt nacht diversen Dateiendungen entscheiden
                  debuglog "    F> "+ path_file
                  readbmx(path, file)  ' Datei auslesen, oder was sonst so ist
            End Select
            
         Default
                                ' hier wurde das Verzeichnisende erreicht
            debuglog "<<< return"
            CloseDir dir
            Return
            
      End Select
   
   Forever
   
End Function