Function search(where$,dir$)
  newdir$ = ""
  sglfile$ = dir$+"list.sgl"
  If where$ = "all" Then
   
    For root=67 To 90 ;Datenträger ab Buchstaben C: - Z:
   
     
      If FileType(sglfile$) = 1 Then
        file = OpenFile(sglfile$)
        SeekFile file,FileSize(sglfile$)-1 ;Daten werden immer ans Ende geschrieben
      Else
        file = WriteFile(sglfile$)
      EndIf

      ChangeDir(Chr$(root)+":")
      If CurrentDir$() = Chr$(root)+":\" Then ;Diese Zeile überprüft ob es den jeweiligen Datenträger überhaupt gibt         
          Repeat
         
          name$ = relabs$(CurrentDir$())
          makelist(name$) ;Erstellt die temporären Listen
            checkfile$ = readlist$(name$) ;List den obersten Eintrag aus und löscht ihn
            SetStatusText(w_main,CurrentDir$()+checkfile$)
            If FileType(checkfile$) = 1 Then
              If Right$(checkfile$,3) = "txt" Then
                WriteLine file,CurrentDir$()+checkfile$ ;Schreibt absoluten Dateipfad in meine Liste
              EndIf
            ElseIf FileType(checkfile$) = 2 Then
              ChangeDir(checkfile$)
            Else
              dirold$=CurrentDir$()
              ChangeDir("..")
              dirnew$=CurrentDir$()
              deletelist(name$,-1)
              If dirold$=dirnew$ Then ;Überprüft ob Datenträger fertig dursucht wurde und startet mit dem nächsten
                Exit
              EndIf
            EndIf
          Forever
      EndIf

     
      CloseFile file
    Next
  EndIf     
 
End Function

; Diese Funktion erstellt den Namen für die temporäre Datei
;Ich habe vor den Namen der Datei noch die Größe der Dateien im Ordner drangehängt. Bringt aber nichts
;bei folgender Struktur:
; C:\ -> test\ -> test\ -> andererOrdner\ -> blabla...
;Also wenn nur der betreffende Ordner im anderen Ordner ist
Function relabs$(rel$)
  dir=readdir(rel$)
  size=0
  Repeat
    file$=nextfile$(dir)
    If file$<>"" Then
      size=size+filesize(file$)
    Else
      Exit
    EndIf
  forever
 
  curdir$ = Left(rel$,Len(rel$)-1)
  If Right$(curdir$,1) = ":" Then
    Return "root"+Left$(curdir$,1)
  EndIf
  pos=Instr(curdir$,"\")
 
  Repeat
    curdir$=Right(curdir$,Len(curdir$)-pos)
    pos=Instr(curdir$,"\")
    If pos=0 Then Exit
  Forever
  Return Str$(size)+curdir$
End Function

Global anzahl

;Einlesen
dirs("c:\windows") ;dirs(".")

Print anzahl+" Textdateien gefunden"
WaitKey
End




;Dateien-Suchen
Function dirs(pfad$)
 rdid=ReadDir(pfad$)
  Repeat
   datei$=Lower(NextFile$(rdid))
   If datei$<>"."
    If datei$<>".."
     If datei$="" Exit
     If FileType(pfad$+"\"+datei$)=2
      dirs(pfad$+"\"+datei$)
     Else
      If Right$(datei$,4)=".txt"
       Print pfad$+"\"+datei$
       anzahl=anzahl+1
      End If
     End If
    End If
   End If
  Forever
 CloseDir rdid
End Function