Dateinamen aus der Zwischenablage ermitteln Mit dieser Funktion lassen sich alle Dateinamen ermitteln, die über den Windows Explorer in die Zwischenablage kopiert wurden.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  5.796
www.tools4vb.de	System:  WinXP, Vista, Win7, Win8, Win10	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 1 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Bereits vor langer Zeit haben wir Ihnen einen Tipp vorgestellt, mit dem man Dateinamen in die Windows-Zwischenablage kopieren kann:  Dateiliste in die Zwischenablage kopieren

Nachfolgender Tipp zeigt den umgekehrten Weg: die Funktion ClipboardFileList gibt eine Liste aller Dateien zurück, die sich für Drop-Operationen in der Windows-Zwischenablage befinden.

''' <summary>
''' Ermittelt alle Dateinamen aus der Zwischenablage
''' </summary>
''' <returns>Datei-Liste</returns>
Public Function ClipboardFileList() As List(Of String)
  Dim Files As New List(Of String)
 
  ' Prüfen, ob das DataObject Dateien enthält
  Dim DataObject As IDataObject = Clipboard.GetDataObject()
  If DataObject.GetDataPresent(DataFormats.FileDrop) = True Then
    ' alle Dateien ermitteln und der Files-Liste zuweisen
    For Each File As String In DataObject.GetData(DataFormats.FileDrop)
      Files.Add(File)
    Next 
  End If
 
  Return Files
End Function

Aufrufbeispiel:

' alle Dateinamen aus der Zwischenablage in einer ListBox anzeigen
ListBox1.Items.Clear()
ListBox1.Items.AddRange(ClipboardFileList.ToArray)