从VB.NET中的电子邮件附件获取文件名称复制到剪贴板

如果用户从Outlook电子邮件附件将文件复制到Windows中的剪贴板,有什么办法可以在VB.NET中获取该文件的名称？

如果该文件从Windows资源管理器复制的,Clipboard.GetFileDropList有我可以用它来得到这个数据,但是当文件从电子邮件附件复制的列表是空的(只有4个可用的格式- ,,FileGroupDescriptorW 和).FileGroupDescriptorRenPrivateItemFileContents

感觉这应该是可能的,因为我可以将文件粘贴到Windows资源管理器中,并将其粘贴到附件的名称.

事实证明,您可以从格式为的数据对象中获取文件名FileGroupDescriptor.但代码有点神秘:

Dim fileName As New StringBuilder("")
Dim theStream As Stream = Clipboard.GetData("FileGroupDescriptor")
Try
    Dim fileGroupDescriptor(512) As Byte
    theStream.Read(fileGroupDescriptor, 0, 512)

    Dim i As Integer = 76
    While fileGroupDescriptor(i) <> 0
        fileName.Append(Convert.ToChar(fileGroupDescriptor(i)))
        i += 1
    End While
Finally
    If theStream IsNot Nothing Then theStream.Close()
End Try