Получение прочих свойств документа

Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
    Dim arrHeaders(35)
    Dim shell As New Shell32.Shell
    Dim objFolder As Shell32.Folder
    Dim str As New List(Of String)
    objFolder = shell.NameSpace("C:\08")
    For i = 0 To 34
        arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)
    Next
    For Each strFileName In objFolder.Items
        For i = 0 To 34
            str.Add(i & vbTab & arrHeaders(i) & ": " & objFolder.GetDetailsOf(strFileName, i))
        Next
    Next
    TextBox1.Text = String.Join(vbCrLf, str.ToArray)
End Sub

Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
    Dim n As Integer = 350
    Dim arrHeaders(n - 1)
    Dim shell As New Shell32.Shell
    Dim objFolder As Shell32.Folder
    Dim str As New List(Of String)
    objFolder = shell.NameSpace("C:\08")
    For i = 0 To n - 1
        arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)
    Next
    For Each strFileName In objFolder.Items
        For i = 0 To n - 1
            str.Add(i & vbTab & arrHeaders(i) & ": " & objFolder.GetDetailsOf(strFileName, i))
        Next
    Next
    TextBox1.Text = String.Join(vbCrLf, str.ToArray)
End Sub

Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
    Dim hdr() As String = {"Имя файла", "Путь к папке", "Тип", "Размера", "Высота кадра", "Ширина кадра", "Частота кадров", "Скорость передачи данных", "Общая скорость потока"}
    Dim inf() As String = getInfoDetails("C:\08\1080-25p-25mbps.mp4", hdr)
    TextBox1.Clear()
    For i = 0 To hdr.Length - 1
        TextBox1.AppendText(hdr(i).PadRight(25) & ":" & inf(i).PadLeft(25))
    Next
End Sub
Private Function getInfoDetails(ByVal fName As String, ByVal headers() As String) As String()
    Dim shell As New Shell32.Shell
    Dim objFolder As Shell32.Folder = shell.NameSpace(IO.Path.GetDirectoryName(fName))
    Dim n As Integer = 350, ii As Integer
    Dim arrHeaders(n - 1) As String
    Dim arInfo As New List(Of String)
    Dim fnm As String = IO.Path.GetFileName(fName)
    For i = 0 To n - 1
        arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)
    Next
    For i = 0 To headers.Length - 1
        ii = Array.IndexOf(arrHeaders, headers(i))
        arInfo.Add(objFolder.GetDetailsOf(objFolder.Items.Item(fnm), ii) & vbCrLf)
    Next
    Return arInfo.ToArray
End Function