vb@rchiv · Tipps & Tricks · Dateien vom Explorer in eine List- oder TextBox

Rubrik: Dateisystem · Dateien allgemein | VB-Versionen: VB5, VB6

14.01.02

Dateien vom Explorer in eine List- oder TextBox Dieser Tipp zeigt, wie sich Dateien per Drag & Drop vom Windows Explorer in eine VB-ListBox oder TextBox einfügen lassen.
Autor: Dieter Otter	Bewertung:	Views: 22.188
www.tools4vb.de	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Recht häufig in letzte Zeit gefragt: "Wie schaffe ich es, dass Dateien per Drag & Drop in eine VB-ListBox eingefügt werden können"

Lösung:
Zunächst muss die Listbox-Eigenschaft OLEDropMode auf 1 - Manuell eingestellt werden. Werden jetzt Dateien aus dem Windows Explorer auf die ListBox gezogen, wird das Ereignis ListBox-Ereignis OLEDragDrop ausgelöst. In diesem Ereignis muss man zunächst prüfen, ob es sich bei den OLE-Daten um Dateien handelt. Ist dies der Fall, so befinden sich der Dateiname oder die Dateinamen (wenn es mehrere sind) in der Variablen <>Data.Files.

Zusammengefasst sieht das dann so aus:

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

Das ganze lässt sich z.B. auch auf Textboxen übertragen. Nehmen wir an, Sie haben eine TextBox, die als Eingabeaufforderung eines bestimmten Dateityps dient, z.B. WAVE-Dateien. Nun denkt sich der Anwender Ihres Programm, dann markiere ich mal eben schnell den Dateinamen im Windows Explorer und ziehe diesen auf die TextBox.

Soll Ihr Programm solch eine OLE Drag & Drop Fähigkeit unterstützen, setzen Sie (analog zum obigen ListBox-Beispiel) die TextBox-Eigenschaft OLEDropMode auf 1 - Manuell. Im OLEDragDrop-Event fragen Sie jetzt zusätzlich ab, ob es sich bei der Datei um eine WAVE-Datei handelt (Endung .wav):

Private Sub Text1_OLEDragDrop(Data As DataObject, _
  Effekt As Long, Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
 
  ' Handelt es sich um eine Datei?
  If Data.GetFormat(vbCFFiles) Then
    ' ...aber nur WAVE-Dateien!
    If UCase(Right(Data.Files(1), 4)) = ".WAV" Then
      ' ab in die TextBox
      Text1.Text = Data.Files(1)
    End If
  End If
End Sub