; Directories auslesen von "Garfield" Winfried Rothenberg 



Type Directories
Field Pfad$
End Type


Global TA

Global Prog_Directory$ = CurrentDir()

Global TEstFile = WriteFile(Prog_Directory$+"Testfile.txt")


CurrentPfad$= RequestDir ("bitte Laufwerk oder Verzeichnis wählen")
If Right$(CurrentPfad$,1)<> "\" Then Currentpfad = currentpfad + "\"



TA = 0
ScanAll(CurrentPfad$)


CloseFile Testfile


Notify  TA +" Dateien gefunden"

End

Function ScanAll(CurrentPfad$)

CurrDir= ReadDir(CurrentPfad$) 

DirAuslesen(CurrDir,CurrentPfad$)

CloseDir CurrDir

For Dir.Directories = Each Directories

CurrentPfad =Dir\Pfad$ 
CurrDir= ReadDir(CurrentPfad)
DirAuslesen(CurrDir,CurrentPfad$)
CloseDir CurrDir

Delete Dir

Next

End Function


Function DirAuslesen(CurrDir,CurrentPfad$)

While MoreFiles(CurrDir)
FFile$ = NextFile(CurrDir) 
CurrFile$ = currentPfad+file$ 

	If  FileType(CurrFile$) = 2 
		If file = "." Or File = ".."
		Else
		Ordner = Ordner +1
		Dir.Directories = New Directories
		Dir\Pfad = currfile$+"\"
		End If
		
	End If
	
	If FileType(CurrFile$) = 1
Anzahl = Anzahl +1
		Extension$ = Lower$ (Right$(File$,3))
		Select Extension
			Case "wav" : EintragWAV(CurrFile$,File)
			Case "mp3" : EintragMP3(CurrFile$,File)
		End Select
	End If
	SetStatusText main_window,TA +" Ordner= "+Ordner


Wend

End Function

Function Eintrag(Pfad$,File$)

Ta = Ta+1

WriteLine (TestFile,TA + " -> "+Pfad$)


End Function

Type Daten 
Field Name$, Wo$ 
End Type
;DirScan(Pfad$,Endung(3Stellen))
DirScan("c:\Eigene Dateien",".bb") 
WaitMouse 
End
;------------------------------------------------------------------------------ 
Function DirScan(Pfad$,Typ$);liest  alle Einträge des Typs aus, inclusive Unterordner
DebugLog "Functionsaufruf DirScan ( "+Chr(34)+Pfad$+Chr(34)+" , "+Chr(34)+Typ$+Chr(34)+  " )"
   olddir$ = CurrentDir() 
   ChangeDir (Pfad$) 
   Ordner = ReadDir (CurrentDir()) 
    
   Repeat 
      Eintrag$ = NextFile (Ordner) 
      If Eintrag$  = "" Then Exit 
         If FileType(CurrentDir()+Eintrag$) = 2 Then 
         If Eintrag$  <> "." And Eintrag$  <> ".." Then
		 	; Ordner gefunden 
            DirScan(CurrentDir()+Eintrag$,Typ$) ;<<<<<< Rekursiv 
         End If 
      Else 
      ;------------------------------------------------------------------ 
      ; was suchen wir den...... 
         If Upper$ (Right$(Eintrag$,3)) = Upper$(Typ$)  Then 
            Datei.Daten   = New Daten 
            Datei\Name$ =   Eintrag$ 
            Datei\Wo$   =   CurrentDir() 
            DebugLog Datei\Wo$ +   Datei\Name$ 
      ;Daten werden im Debugfenster ausgegeben 
      ;------------------------------------------------------------------ 
         End If 
      End If 
   Forever 
   CloseDir (Ordner) 
   ChangeDir (olddir$) 
End Function  

If Right$(CurrentPfad$,1)<> "\" Then Currentpfad = currentpfad + "\"