apptitle "Suchmaschine"
Graphics 800,600
global Self$=currentdir()
Dim A$(1000,2)
Global i=0
global Old_File$=""
global readfolder$=Readdir(currentdir())
repeat
GiebFiles (readfolder$)
;For qq=0 to i
;      Print A$(qq,0)+ " " + A$(qq,1)
;Next   
;Print "1-" + i
For qq=0 to i
      If (A$(qq,1)=2 and (Not(A$(qq,0)="." or A$(qq,0)=".."   ))) then
      PRINT "Verzeichnis gefunden = " + A$(qq,0) + "q= " + qq + "i= " + i
      print
            ChangeDir(A$(qq,0)):CloseDir(readFolder$):Delay 500:readfolder$=Readdir(currentdir()):delay 500:GiebFiles(Readfolder$)
   
         print Readfolder$
         print currentdir()   
      End If
Next
forever
;Print "2-"
;For qq=0 to i
;      Print A$(qq,0)+ " " + A$(qq,1)
;Next      
;Print "3-"   
      
;Waitkey
;End

Function GiebFiles(fDir$)

   Repeat
delay 1000   
    A$(i,0)= NextFile(fDir$)
      A$(i,1)= Filetype(A$(i,0))
print A$(i,0)      

i=i+1
   Until A$(i-1,0)=""
End Function