PrintAllFilesInDir("C:\",0,0,0)


Function PrintAllFilesInDir(dir$,vorr=0,wtk=0,dl=0)
   Local dirs=ReadDir(dir$),M
   If dirs=0 Then Return 0
   
   Local filename$=" "
   
   While filename$<>""
      
      filename$=NextFile(dirs)
      If filename$="" Then Exit
      For M=1 To vorr
         Write " "
      Next
      Print filename$
      
      If FileType(dir$+filename$)=2 Then PrintAllFilesInDir(dir$+filename$,vorr+1,wtk,dl)
      If wtk=1 Then WaitKey
      If dl Then Delay dl
      If Upper(filename$)="DATEI.EXE" Then RuntimeError "Gefunden!"
      
   Wend
   
   
   
End Function