' Demonstrates SetFileDropList, ContainsFileDroList, and GetFileDropList
Public Function SwapClipboardFileDropList(ByVal replacementList _
    As System.Collections.Specialized.StringCollection) _
    As System.Collections.Specialized.StringCollection

    Dim returnList As System.Collections.Specialized.StringCollection _
        = Nothing

    If Clipboard.ContainsFileDropList() Then

        returnList = Clipboard.GetFileDropList()
        Clipboard.SetFileDropList(replacementList)
    End If

    Return returnList

End Function

' 导入命名空间
Imports System.Drawing.Drawing2D
Imports System
Imports System.Drawing.Text
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Math
Imports System.Xml.Serialization
Imports System.IO
Imports System.Collections.Specialized

Public Class MainClass

   Shared Sub Main()
        'Copy some files then run this program

        If Clipboard.ContainsFileDropList() Then
            Dim file_names As StringCollection = Clipboard.GetFileDropList()
            For Each file_name As String In file_names
                Console.WriteLine(file_name)
            Next file_name
        End If
   End Sub 

End Class