从VB.NET中的电子邮件附件获取文件名称复制到剪贴板
题
如果用户从Outlook电子邮件附件将文件复制到Windows中的剪贴板,有什么办法可以在VB.NET中获取该文件的名称?
如果文件是从Windows资源管理器中复制的,Clipboard.GetFileDropList
包含可用于获取此文件的数据,但是当从电子邮件附件复制文件时该列表为空(只有四种可用格式 - FileGroupDescriptorW
,FileGroupDescriptor
,RenPrivateItem
和FileContents
)。
感觉这应该是可能的,因为我可以将文件粘贴到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
不隶属于 StackOverflow