Drag and Drop from Explorer

[paco]

I would like to drag and drop a file from Explorer or any other application, to my application (destination could be a listbox, a textbox, ....).

how could i do that ???

[Mark Sreeves]

sure, for a listbox

set OLEDropMode for the list to manual

then do this:

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, y As Single)
Dim i
MousePointer = 11

For i = 1 To Data.Files.Count

    List1.AddItem Data.Files(i)
Next i

MousePointer = 0

End Sub

------------------
Mark Sreeves
Analyst Programmer

[email protected]
A BMW Group Company

[paco]

It works !!!! Thanks a lot !!!!

The OLEDropmode set to Manual was missing
in my code.

I Hope to help you once....

Paco