wie kann ich per drop Dateien von ein ExplorerListGadget zu den andere kopieren?
Geht das überhaupt?
Gruß
MarcelX
Code: Alles auswählen
Enumeration
#explorerL
#explorerR
EndEnumeration
If OpenWindow(0, 0, 0, 600, 400, "ExplorerListGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ExplorerListGadget(#explorerL, 10, 10, 285, 380, "C:\", #PB_Explorer_AlwaysShowSelection)
ExplorerListGadget(#explorerR, 305, 10, 285, 380, "C:\", #PB_Explorer_AlwaysShowSelection)
EnableGadgetDrop(#explorerL, #PB_Drop_Files, #PB_Drag_Copy)
EnableGadgetDrop(#explorerR, #PB_Drop_Files, #PB_Drag_Copy)
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_GadgetDrop
Debug "DROP ..."
FilesFrom$ = EventDropFiles()
Select EventGadget()
Case #explorerL
; CopyFile(FilesFrom$, GetGadgetText(#explorerL)+GetFilePart(FilesFrom$))
Debug "FROM "+FilesFrom$ ; cp file$ TO TODO
Debug "TO "+GetGadgetText(#explorerL)+GetFilePart(FilesFrom$)
Case #explorerR
; CopyFile(FilesFrom$, GetGadgetText(#explorerR)+GetFilePart(FilesFrom$))
Debug "FROM "+FilesFrom$
Debug "TO "+GetGadgetText(#explorerR)+GetFilePart(FilesFrom$)
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
EndIf