OLE Drag & Drop (Drag from my app to Windows Explorer)

[BruceG]

How can I set this up:
My app will display a listview in large- or small- icon format. These icons will represent files. I would like the user to be able to drag one or more of the icons from the listview and drop them into an Explorer folder (effectively, my app would be copying these files to the desired folder). I know it's probably not rocket science, but I haven't done this before. TIA for your help...

[BuggyProgrammer]

Private Sub ListView1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
Data.Files.Add "C:\somesong.mp3" 'etc add all the files.
Data.SetData , 15 '15 = files
AllowedEffects = vbDropEffectCopy
End Sub

that should work.

[BruceG]

SWEET, Buggy! Thank you very much. Here is the test I ran based on your code. Just had to modify the sub event header slightly and set the OLEDragMode property of the LV to automatic. But this is beautiful, it opens up a lot of possiblilities for an app I have in mind. Thanks again!

Option Explicit
 
Private Sub Form_Load()
With ListView1
    .ListItems.Add , , "file1.txt", 1
    .ListItems.Add , , "file2.txt", 1
    .ListItems.Add , , "file3.txt", 1
    .ListItems.Add , , "file4.txt", 1
End With
End Sub
 
Private Sub ListView1_OLEStartDrag(Data As [b]MSComctlLib[/b].DataObject, AllowedEffects As Long)
    Dim intX    As Integer
    For intX = 1 To ListView1.ListItems.Count
        If ListView1.ListItems(intX).Selected Then
            Data.Files.Add App.Path & "\" & ListView1.ListItems(intX).Text
        End If
    Next
    Data.SetData , 15 '15 = files
    AllowedEffects = vbDropEffectCopy
 
End Sub