Hi Simon,
First of all, I would like to confirm my understanding of your issue.
From your description, I understand that you wants to copy file to the
windows explorer by drop an item(usually the filepath string) from listview
to window explorer.
Have I fully understood you? If there is anything I misunderstood, please
feel free to let me know.
I think we can use the FileDrop DataFormat to do the job.
<Code Snippet>
Private Sub Form1_Load(ByVa l sender As Object, ByVal e As
System.EventArg s) Handles MyBase.Load
ListView1.Allow Drop = True
ListView1.View = View.Details
ListView1.Colum ns.Add("Column1 ", ListView1.Width - 4,
HorizontalAlign ment.Left)
ListView1.Items .Add("C:\test.t xt")
End Sub
Private Sub ListView1_DragE nter(ByVal sender As Object, ByVal e As
System.Windows. Forms.DragEvent Args) Handles ListView1.DragE nter
If (e.Data.GetData Present(DataFor mats.FileDrop)) Then
e.Effect = DragDropEffects .All
Else
e.Effect = DragDropEffects .None
End If
End Sub
Private Sub ListView1_DragD rop(ByVal sender As Object, ByVal e As
System.Windows. Forms.DragEvent Args) Handles ListView1.DragD rop
Dim s() As String = e.Data.GetData( "FileDrop", False)
Dim i As Integer
For i = 0 To s.Length - 1
ListView1.Items .Add(s(i))
Next i
End Sub
Private Sub ListView1_Mouse Down(ByVal sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles ListView1.Mouse Down
If ListView1.Selec tedItems.Count > 0 Then
Dim strFilesPath() As String
ReDim strFilesPath(Li stView1.Selecte dItems.Count - 1)
For i As Integer = 0 To ListView1.Selec tedItems.Count - 1
strFilesPath(i) = ListView1.Selec tedItems(i).Tex t
Next
Dim dt As DataObject = New DataObject(Data Formats.FileDro p,
strFilesPath)
ListView1.DoDra gDrop(dt, DragDropEffects .Copy)
End If
End Sub
</Code Snippet>
The code above is for demostration purpose, you may need to modify it to
adapt to your senario.
Please apply my suggestion above and let me know if it helps resolve your
problem.
Best regards,
Peter Huang
Microsoft Online Partner Support
Get Secure! -
www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no rights.
