Drag and Drop Datei von Listbox in E-Mail / Explo.
28.12.2017 08:38:26
Listbox
ich habe einen sehr umfangreichen Code, in dem mir in einer Listbox einige Daten aufgelistet werden. In Spalte 10 Stehet dier jeweilige Dateipfad inkl. Dateiname und Dateiendung. Ich möchte jetzt gerne per Drag and Drop die Datei aus der Listbox in den Explorer oder in eine E-Mail ziehen können. hierzu habe ich folgednen Code im Netzt gefunden:
Private Sub ListBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
Single, ByVal Y As Single)
'zum Übertragen der Daten von einer Listbox in die nächste
'wird ein DataObject verwendet
Dim objDaten As DataObject
Dim fullPath As String
Set objDaten = New DataObject
Dim Effect As Integer
'Button = 1 -> linke Maustaste ist gedrückt
If Button = 1 Then
'beim Klicken wird gleichzeitig Value der Listbox
'auf das gewünschte Element gesetzt
'-> dieser Value wird dem DataObject übergeben
fullPath = ListBox2.Column(10, ListBox2.ListIndex)
objDaten.SetText fullPath, vbCFFiles
Effect = objDaten.StartDrag
End If
End Sub
Dieser Code funktioniert auch schon fast, ich kann per Darg and Drop auch etwas in eine E-Mail ziehen und es wird auch erkannt, dass eine Datei vorhanden ist, jedoch wird diese nicht eingefüht sondern bleit leer. Ich habe das gefühl, dass der Pfad anders an das als ich das mache an das DataObject übergeben werden muss. Kann mir hier jemand helfen?
Beste Grüße,
Stefan