Получение имени файла, скопированного в буфер обмена из вложения электронной почты в VB.NET
Вопрос
Если пользователь копирует файл в буфер обмена в Windows из вложения электронной почты Outlook, могу ли я как-нибудь получить имя этого файла в 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