---

Hallo Zusammen,

wie kann ich per Drag & Drop Dateien aus einer Filelist zu einer Listbox per Drag & Drop ziehen? Ich möchte nachher in meiner Listbox verschiedene Dateien haben, die ich dann bearbeiten muß. Den Pfad kann ich von der Zeichnung aus bekommen.

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Heiko,

Private sFileName as string

Private Sub File1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Drag initialisieren:
  If Len(File1.FileName) Then
    sFileName = File1.FileName
    File1.Drag 1
  End If
End Sub

Private Sub List1_DragDrop(Source As Control, X As Single, Y As Single)
'Drop ausführen:
  List1.AddItem sFileName
End Sub

pablo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Pablo,

danke für den Code. Das sieht Alles ganz gut aus. Nur wenn ich den Filename aus der Filelist in der Listbox loslasse, wird in der Listbox nichts angezeigt...

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Habs gefunden. Hab die erste Zeile übersehen.

Danke!!!!

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP