[RESOLVED] OLE Drag & Drop from ListView to Explorer

[Cube8]

I have some items in a listview and I want the user to be able to choose the export format (.csv, .txt, ...).
I have already made the export functions and can do it through the menus.

What I want is to be able to drag some items from the listview to an explorer window (eg. desktop), show a menu of file formats and export according to the selection (or cancel the procedure if nothing selected).

I found this but the files must exist in the data collection on OLEStartDrag.
I want the files to be added after the menu selection.

How can I do that?

[some1uk03]

Cant you have a dummy file just to initialise the drag drop and then show the menu ?

[Cube8]

I tried that but, as soon as OLECompleteDrag fires, the system moves the file immediately to the drop point and (asynchronously) the popupmenu appears.
If I try to keep it open on StartDrag, in order to close it on CompleteDrag, the system complains that the file is in use.

[Cube8]

The guy in this thread said he had managed to do what I'm trying to do now.
Can someone explain further what he did?

[LaVolpe]

This is what I believe is the workaround. Note, the trick is to not set the data in OLEStart, but set it in OLESetData. Of course, you have to provide a minimum of the data format and allowed effects in OLEStart or no drag operation occurs.

1. In the OLEStart event

    Data.Clear
    Data.SetData , vbCFFiles 
    AllowedEffects = vbDropEffectCopy ' add move also if desired

2. In the OLESetData event

    If GetKeyState(vbLeftButton) = 0& Then
        PopupMenu mnuFormat ' << add your own menu control name
        Data.Files.Add [full path & file name] ' of each file
        ' ^^ this cannot be done in your menu routine unless you pass the Data object
    End If

[Cube8]

Thank you, LaVolpe.
I already managed to do this trick just before you post the code.
Also, using the Debug.Print method, I discovered that OLESetData event fires several times before actually dropping the "file", and GetKeyState sometimes returns 1.

Anyway, thanks for your response and, if you would like, I'll post the final code inside OLESetData.

[LaVolpe]

I think posting the code could help others. I do recall someone having a similar problem over a year ago: wanted to unzip data to target directory, but didn't want the zip dropped. Like you, they wanted to know when the target was actually dropped but before the CompleteDrag event.

[Cube8]

I posted the code in the CodeBank forum: Drag & Drop ListView items to Explorer