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:	Views:  6.025
www.tools4vb.de	System:  WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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)

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.