Получение имени файла, скопированного в буфер обмена из вложения электронной почты в VB.NET

Question

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