.net GetDetailsOf shell32.folderitem 从字符串

Question

我正在尝试使用 vb.net 中的 GetDetailsOf 获取图像或视频文件的分辨率，但我不明白如何将文件加载到 shell32.folderitem 中，因此我采用了一种非常迂回的方式。

    OpenFileDialog1.ShowDialog()
    Dim fi As New FileInfo(OpenFileDialog1.FileName)

    Dim shell As New Shell32.Shell
    Dim objFolder As Shell32.Folder

    objFolder = shell.NameSpace(fi.DirectoryName)
    For i As Integer = 0 To objFolder.Items.Count - 1
        If objFolder.Items(i).name = fi.Name Then

            Console.WriteLine(objFolder.GetDetailsOf(objFolder.Items(i), 31))
            Console.WriteLine(objFolder.GetDetailsOf(objFolder.Items(i), 282))
            Console.WriteLine(objFolder.GetDetailsOf(objFolder.Items(i), 280))
        End If
    Next

我只是在文件夹中循环，直到找到我的文件的匹配项。有没有更清洁、更快的方法来做到这一点？我只需要从完整文件名中获得一个 shell32.FolderItem。

另外，我可以依靠 Detail 31 始终作为分辨率，将 280/282 作为帧高/帧宽吗？我如何知道他们是否会在其他计算机上检索相同的详细信息而无需在一堆其他计算机上进行测试？

谢谢。

Answer 1

    Dim fi As New FileInfo(fileName)
    Dim shl As Shell32.Shell = New Shell32.Shell
    Dim dir As Shell32.Folder = shl.[NameSpace](fi.DirectoryName)
    Dim itm As Shell32.FolderItem = dir.Items().Item(fi.Name)
    Dim itm2 As Shell32.ShellFolderItem = DirectCast(itm, Shell32.ShellFolderItem)


    Dim str As String = dir.GetDetailsOf(itm2, 31)

这让它在不搜索文件的情况下工作。 31 为我返回图像尺寸。 DirectoryInfo 没有 shell32 "getdetailsof" 拥有的所有元数据。

Answer 2

有没有更清洁、更快的方法来做到这一点？

这样的事情应该可以工作：

Imports System.IO

    Dim test() As FileSystemInfo = New DirectoryInfo("MyDirectoryPath").GetFileSystemInfos("MyImageFile")
    'MyImageFile is actually a search pattern string.  the result is an array 
    'containing info on every file in the folder that matches the search pattern.
    'If the pattern is unique then only one file will be returned and using
    'the FullName property will return the full path to the file.
    test(0).FullName()
    'Or just the Name property to return just the file name
    test(0).Name()