Получить размер видеокадра не загружая сам файл

    Public Function GetResolution_viaMediaInfoCLI(FileName As String) As Size
 
        Dim MediaInfoFile As String = Application.StartupPath & "\MediaInfo.exe"
 
        If Not IO.File.Exists(MediaInfoFile) Then
            Throw New Exception("Файл MediaInfo.exe не найден в папке с программой.")
        End If
 
        Dim VideoSize As Size
 
        Using P = New Process
            With P
                .StartInfo.FileName = MediaInfoFile
                .StartInfo.Arguments = Chr(34) & FileName & Chr(34)
                .StartInfo.StandardOutputEncoding = System.Text.Encoding.GetEncoding("cp866")
                .StartInfo.UseShellExecute = False
                .StartInfo.RedirectStandardOutput = True
                .StartInfo.CreateNoWindow = True
                .Start()
 
                While Not .StandardOutput.EndOfStream
                    Application.DoEvents()
                    Dim LineTXT As String = .StandardOutput.ReadLine
                    Select Case True
                        Case LineTXT.StartsWith("Width")
                            VideoSize.Width = CInt(LineTXT.Split(":")(1).Trim.Split("p")(0).Trim.Replace(Space(1), ""))
                        Case LineTXT.StartsWith("Height")
                            VideoSize.Height = CInt(LineTXT.Split(":")(1).Trim.Split("p")(0).Trim.Replace(Space(1), ""))
                    End Select
                End While
            End With
        End Using
 
        GC.Collect()
 
        Return VideoSize
    End Function

        With GetResolution_viaMediaInfoCLI("D:\04_Pictures\map50.jpg")
            Label1.Text = .Width & " x " & .Height
        End With

Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
 
        MsgBox(GetHW("D:\Верни меня.webm"))
 
    End Sub
 
 
    Private Function GetHW(path As String) As String
        Dim proc As New Process
        Dim strProg = "ffprobe.exe"
        proc.StartInfo.FileName = strProg
        proc.StartInfo.Arguments = " -i " & """" & path & """" & "  -hide_banner"
        proc.StartInfo.CreateNoWindow = True
        proc.StartInfo.RedirectStandardOutput = True
        proc.StartInfo.UseShellExecute = False
        proc.StartInfo.RedirectStandardError = True
        Dim output As String = "", srOutput As IO.StreamReader = Nothing
        Try
            Dim pro As Process = Diagnostics.Process.Start(proc.StartInfo)
            pro.WaitForExit()
            srOutput = pro.StandardError
            output = srOutput.ReadToEnd
            pro.Close()
            For i As Integer = 2 To 4
                Dim s As String = Split(Split(output, "Video:")(1), ",")(i)
                If s Like "*#x#*" Then Return s
            Next
        Catch __unusedException1__ As Exception
            output = ""
        Finally
            If srOutput IsNot Nothing Then
                srOutput.Close()
                srOutput.Dispose()
            End If
        End Try
        Return output
    End Function
 
End Class

'Get Full Info
With New MediaInfo
    .Open("sample-5s.mp4")
    TextBox1.Text = .Inform()
    .Close()
End With

'Get Width & Height Only
With New MediaInfo
    .Open("sample-5s.mp4")
    TextBox1.Text = Join((From INFO In .Inform().Split(vbLf)
                          Where INFO.StartsWith("Width") OrElse
                                INFO.StartsWith("Height")) _
                                .Cast(Of String).ToArray, vbCrLf)
    .Close()
End With