If auswahl$=("Explore")

festp$= Input ("Choose Harddrive, Now on: "+festp$)


folder$= festp$
.mi
myDir=ReadDir(folder$)


Repeat

file$=NextFile$(myDir)


If file$="" Then Exit


If FileType(folder$+"\"+file$) = 2 Then

Print "Folder:" + file$
Else
Print "File:" + file$
End If
Forever

WaitKey

folder$= Input ("Folder???")
Goto mi


CloseDir myDir
WaitKey
EndIf

;Musik-Dateien-Suchen
Function DirScaner(FPfad$)
   Local RDID,Datei$=""
   RDID=ReadDir(FPfad$)
   Repeat
      Datei$=Lower(NextFile$(RDID))
      If Datei$<>"." Then
         If Datei$<>".." Then
            If Datei$="" Then Exit
            If FileType(FPfad$+"\"+Datei$)=2 Then DirScaner(FPfad$+"\"+Datei$)
            If FileType(FPfad$+"\"+Datei$)=1 Then LoadAudio(FPfad+"\"+Datei)
         End If
      End If
   Forever
   CloseDir RDID
End Function




;Neue-Datei-Laden
Function LoadAudio(FFile$)
   Local Extension=0
   If TrackAnz<MAXTRACK Then
      ;MP3, MP2, MP1, OGG, WAV, AIFF
      If Lower$(Right$(FFile,4))=".mp3" Then Extension=1
      If Lower$(Right$(FFile,4))=".ogg" Then Extension=1
      If Lower$(Right$(FFile,4))=".wav" Then Extension=1
      If Extension=1 Then
         TrackAnz=TrackAnz+1
         TextAlpha=2
         Pause=0
         Info1$=""
         Info2$=TrackPos+"/"+TrackAnz
         TrackList$(TrackAnz)=FFile
      End If
   End If
End Function

function step_in(i)
    print "ich bin die "+i
    if i >1 then
        step_in(i-1)
    end if
end function

step_in(10)
Waitkey()