Type file
   Field ftype%
   Field location$
   Field name$
  ; Field
End Type

dir("\Neuer Ordner (2)\")

For f.file=each file
 If f\ftype%=2 Then Print "Ordner"
 If f\ftype%=1 Then Print "Datei"
 Print f\location$
 Print f\name$
Next

WaitKey()

Function Dir(path$)

 path_id=ReadDir("."+path$)
 ChangeDir("."+path$)
 
 tmp1=NextFile$(path_id)
 tmp2=NextFile$(path_id)
 
 Repeat
    f.file = New file   
    f\name$=NextFile$(path_id)   
    f\location=currentdir()
    f\ftype=FileType(f\location+f\name$)
      If f\name$="" Then Delete f : Exit
 Forever
 
CloseDir path_id


   For f.file = Each file
       If f\ftype = 2 Then
      
         path2$=ReadDir(f\location+f\name)
         Changedir(f\location+f\name)
               
        tmp1=NextFile$(path2)
       tmp2=NextFile$(path2)
       
        Repeat
          tmp$=NextFile$(path2)
          If tmp$="" Then Exit
          f2.file = New file   
          f2\name$=tmp$
          f2\location=currentdir()
          f2\ftype=FileType(f2\location+f2\name$)           
        Forever
      CloseDir path2$
      EndIf
    Next   


 
End Function

Type DateiListeTyp
 Field Ordner$
 Field Dateiname$
 Field Erweiterung$
End Type

Const COrdner=2
Const CDatei=1
Global DateiListe.DateiListeTyp

SucheDateien "C:\","txt|"

Function SucheDateien(Ordner$,Erweiterung$)
 If Len(Erweiterung$)>0 Then
  If Right$(Erweiterung$,1)<>"|" Then
   Erweiterung$=Erweiterung$+1
  End If
 End If

 If Right$(Ordner$,1)<>"\" Then
  Ordner$=Ordner$+"\"
 End If
 LangErweiterung=Len(Erweiterung$)
 OrdnerNr=ReadDir(Ordner$)
 If OrdnerNr=0 Then Return Ordner_Konnte_Nicht_auslesen_Werden

 Datei$=NextFile$(OrdnerNr)
 While Datei$<>""
  Select FileType((Ordner$+Datei$))
   Case COrdner
    If Datei$<>"." And Datei$<>".." Then   
     SucheDateien Ordner$+Datei$,Erweiterung$
    End If 
   Case CDatei
    DateiErweiterung$=Mid$(Datei$,Instr(Datei$+".",".")+1)
    DateiName$=Mid$(Datei$,1,Instr(Datei$+".",".")-1)
    If LangErweiterung>0 Then
     ErweiterungStimmt=False
     For PosErweiterung=1 To LangErweiterung
      Select Mid$(Erweiterung$,PosErweiterung,1)
       Case "|"
        If Upper$(TestErweiterung$)=Upper$(DateiErweiterung$) Then
         ErweiterungStimmt=True
         Exit
        End If
        TestErweiterung$=""
       Default
        TestErweiterung$=TestErweiterung$+Mid$(Erweiterung$,PosErweiterung,1)
      End Select   
     Next
     TestErweiterung$=""
     If TestErweiterung$<>"" And Upper$(TestErweiterung$)=Upper$(DateiErweiterung$) Then
      ErweiterungStimmt=True
     End If
    End If   
    If ErweiterungStimmt=True Or LangErweiterung=0 Then
     DateiListe= New DateiListeTyp
     DateiListe\Dateiname$=Dateiname$
     DateiListe\Ordner$=Ordner$
     DateiListe\Erweiterung$=DateiErweiterung$
    End If
  End Select
  Datei$=NextFile$(OrdnerNr)
 Wend
End Function

Function Upper$(S$)
 Slen=Len(S)
 If Slen>0 Then
  For P=1 To Slen
   ASCII=Asc(Mid$(S$,P,1))
   If Ascii>96 And Ascii<123 Then
     Ascii=Ascii-32
    ElseIf Ascii=252 Then ;ü
     Ascii=220     
    ElseIf Ascii=228 Then ;ä
     Ascii=196 
    ElseIf Ascii=246 Then ;ö
     Ascii=214
   End If
   R$=R$+Chr$(ASCII)
  Next
  Return R$
 End If
End Function

Function getfiles(dir$)
        verz=ReadDir(dir$)
        Repeat
             test$=NextFile$(verz)
If Test$="" then exit
                If FileType(dir$+"\"+test$)=2 Then
                        getfiles(dir$+"\"+test$)
                ElseIf FileType(dir$+"\"+test$)=1 Then
                If mode=0 Then
                  If Right(test$, 4)=".bmp" Or Right(test$, 4)=".jpg" Then
                       AddGadgetItem list,dir$+"\"+test$
                        EndIf
                ElseIf mode=1 Then
                  If Right(test$, 4)=".wav" Then
                       AddGadgetItem list,dir$+"\"+test$
                        EndIf
                EndIf
                EndIf
        forever
        CloseDir(verz)
End Function