Code: Alles auswählen
OpenWindow(0,0,0,200,200,"test")
CreateGadgetList(WindowID(0))
ButtonGadget(1,10,10,100,100,"Ende")
verzeichni$=PathRequester("Bitte das zu bearbeitende Verzeichnis wählen. Sie können nach der Auswahl die Änderungen bestimmen !","C:\")
If verzeichni$=""
MessageRequester("Vielen Dank","")
End
EndIf
ExamineDirectory(0,verzeichni$,"")
Debug verzeichni$
Repeat
Delay(2)
EventID.l=WindowEvent()
If EventID=#PB_Event_Gadget
Select EventGadget()
Case 1 ; tausch
End
EndSelect
EndIf
ForEver