AutoSuspend False

Global iconstrip_directories = LoadIconStrip(\"gfx/iconstrip_directories.png\")
Global window1 = CreateWindow(\"\",x,y,895,540,0)
SetMinWindowSize window1,895,740

Global tab_grafik = CreatePanel(50,50,900,700,window1)
Global combobox_festplattenbrowser = CreateComboBox(200,30,190,20,tab_grafik)
Global listbox_verzeichnisbrowser = CreateListBox(200,55,190,130,tab_grafik)
SetGadgetIconStrip listbox_verzeichnisbrowser,iconstrip_directories
SetGadgetIconStrip combobox_festplattenbrowser,iconstrip_directories
Global listbox_dateibrowser = CreateListBox(395,30,225,180,tab_grafik)
Global anzeigefeld_pfad = CreateTextField(200,190,190,20,tab_grafik)
SetGadgetText anzeigefeld_pfad,ausgewaehltes_verzeichnis$

festplattenstruktur_einlesen()
verzeichnisstruktur_einlesen()
SetGadgetText anzeigefeld_pfad,CurrentDir$()

While Not KeyHit(1)

WaitEvent()
Select EventID()
	Case $401 ; gadget event
	Select EventSource()

					Case listbox_verzeichnisbrowser :
					
						ChangeDir CurrentDir$()  + GadgetItemText(listbox_verzeichnisbrowser,SelectedGadgetItem(listbox_verzeichnisbrowser))
						SetGadgetText anzeigefeld_pfad,CurrentDir$()
						verzeichnisstruktur_einlesen()

					Case combobox_festplattenbrowser :
										
						ChangeDir GadgetItemText$(combobox_festplattenbrowser,SelectedGadgetItem(combobox_festplattenbrowser))
						SetGadgetText anzeigefeld_pfad,CurrentDir$()
						verzeichnisstruktur_einlesen()

					End Select
					
	End Select

Wend

.programm_ende
End

;###############################################

Function festplattenstruktur_einlesen()

;alle Buchstaben abchecken, ob sie als Laufwerksnamen existieren.
;wenn JA, dann reinpacken in die ComboBox
For i = 65 To 90
	If FileType (Chr$(i) + \":\") = 2 Then AddGadgetItem combobox_festplattenbrowser ,Chr$(i) + \":\" ,0,0
Next

;schauen, welche Festplatte gemäß CurrentDir$() gerade in Benztung ist, und diese Selected setzen
For i = 0 To CountGadgetItems(combobox_festplattenbrowser)-1
	If GadgetItemText$(combobox_festplattenbrowser,i) = Left$(CurrentDir$(),1) + \":\" Then SelectGadgetItem combobox_festplattenbrowser,i
Next

End Function


Function verzeichnisstruktur_einlesen()

ClearGadgetItems listbox_verzeichnisbrowser
ClearGadgetItems listbox_dateibrowser
leseverzeichnis = ReadDir(CurrentDir$())


Repeat
	lesedatei$ = NextFile$(leseverzeichnis)
	If lesedatei$ = \"\" Then Exit
	If FileType(lesedatei$) = 2 And lesedatei$ <> \".\" Then AddGadgetItem listbox_verzeichnisbrowser,lesedatei$,0,1
	If FileType(lesedatei$) = 1 And lesedatei$ <> \".\" Then AddGadgetItem listbox_dateibrowser,lesedatei$
Forever

CloseDir leseverzeichnis
End Function