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

Question

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

如果文件是从Windows资源管理器中复制的，Clipboard.GetFileDropList包含可用于获取此文件的数据，但是当从电子邮件附件复制文件时该列表为空（只有四种可用格式 - FileGroupDescriptorW ，FileGroupDescriptor，RenPrivateItem和FileContents）。

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

Answer 1

事实证明，您可以从格式为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