Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Drag Drop Ordner in ListBox
Autor: Montana
Datum: 11.11.04 14:59
Hi, Hier der Auszug aus dem Tipp Dateien vom Explorer in eine List- oder TextBox Private Sub List1_OLEDragDrop(Data As DataObject, _ Effect As Long, Button As Integer, _ Shift As Integer, X As Single, Y As Single) Dim I As Integer ' Prüfen, ob es sich um eine Datei handelt If Data.GetFormat(vbCFFiles) Then ' alle Dateien (1 bis Files.Count) For I = 1 To Data.Files.Count ' Dateiname der Listbox hinzufügen List1.AddItem Data.Files(I) Next I End If End Sub Ich möchte allerdings nur Ordner und keine Dateien per Drag Drop in eine ListBox ziehen zulassen. Wie könnte man den Tipp nur für Ordner geltend machen ? mfg und danke

Drag Drop Ordner in ListBox	910	Montana	11.11.04 14:59
Re: Drag Drop Ordner in ListBox	556	vbtricks	12.12.04 11:17
Re: Drag Drop Ordner in ListBox	550	Montana	13.12.04 18:44

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen