Vb.net 将文件夹路径复制到列表框

我可以将多个文件夹路径拖放到列表框中，是否可以使用“复制/粘贴”来执行此操作，例如，在windows资源管理器上复制多个文件夹，然后使用上下文菜单、快捷键或按钮将这些文件夹路径粘贴到列表框中

    Private Sub lstFolder_DragDrop(sender As Object, e As Windows.Forms.DragEventArgs) Handles lstFolder.DragDrop           
        Dim directories As String() = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())          
        For Each folder As String In From folders In directories Where Directory.Exists(folders)
            If Not lstFolder.Items.Contains(folder.ToString()) Then
                lstFolder.Items.Add(folder.ToString())
            End If
        Next

    End Sub

    Private Shared Sub lstFolder_DragEnter(sender As Object, e As Windows.Forms.DragEventArgs) Handles lstFolder.DragEnter          
        If e.Data.GetDataPresent(DataFormats.FileDrop, False) = True Then          
            e.Effect = DragDropEffects.All
        End If
    End Sub

---

@维涅什·库马尔

很好，一个问题是，从文档文件或地址栏复制文件夹位置，这是我迄今为止的代码

    Dim directories As String() = CType(Clipboard.GetData(Windows.Forms.DataFormats.FileDrop), String())
    'loop through the string array, check if folder exist then adding each folder to the ListBox
    For Each folder As String In From folders In directories Where Directory.Exists(folders)
        If Not lstFolder.Items.Contains(folder.ToString()) Then
            lstFolder.Items.Add(folder.ToString())
        End If
    Next

---

对。使用剪贴板对象

string[] files = (string[])Clipboard.GetData(System.Windows.Forms.DataFormats.FileDrop);

文件或/和文件夹将在此字符串数组中