Code: Alles auswählen
Procedure Proc_OrdnerErstellen()
Define.i ia
For ia = 0 To CountGadgetItems(ListView_0)
If GetGadgetItemState(ListView_0, ia) > 0
sa$ = GetGadgetText(ExplorerTree_0) + GetGadgetItemText(ListView_0,ia) + "\" ; Quellverzeichnis
se$ = GetCurrentDirectory()
sb$ = GetGadgetText(ExplorerTree_1)
Debug sb$
SetCurrentDirectory(sb$)
sb$ = sb$ + GetGadgetItemText(ListView_0,ia) + "\" ; Zielverzeichnis
Proc_Dateizahl_ergaenzen(sa$)
debug CreateDirectory(sb$)
EndIf
Next
EndProcedure