![]() | Type | Description | ||
| Folder as ExShellFolder | An object reference to a Folder object. | |||
| Effect as Long | A long integer that represents the desired drag-and-drop effect. |
This event occurs after the user drags and drops files into the control. Folder is the target of the drag and drop operation. Effect holds the desired effect of the drag and drop. Use the DropFilesCount property to count the files being dropped. Use the DropFilesPathName property to retrieve the path of the dropping folder. The DropFiles event is fired only if the AllowDropFiles property is True.
Here is a VB sample that lists the files dragged in the Immediate debugger window.
Private Sub ExFolderView1_DropFiles(ByVal ExShellFolder As EXFOLDERVIEWLibCtl.IExShellFolder, ByVal Effect As Long)
Dim I As Long
For I = 0 To FolderView1.DropFilesCount - 1
Debug.Print FolderView1.DropFilesPathName(I)
Next I
If (Effect & 1) = 1 Then
Debug.Print "Copied to " & Folder.PathName
Else
Debug.Print "Moved to " & Folder.PathName
End If
End Sub