VBAの力をかりますが
新しいBookを作成して
Sub ボタン1_Click()
Target = InputBox("ディレクトリ名を入力", "ディレクトリの指定", ThisWorkbook.Path)
Set FS = CreateObject("Scripting.FileSystemObject")
Set Fol = FS.GetFolder(Target)
Set Fil = Fol.Files
ThisWorkbook.Sheets(1).Rows("3:65536").ClearContents
i = 3
For Each Fx In Fil
'ファイル名の書き出し
Cells(i, 2) = Fx.
どのように私は私達のプールの疲弊タウンホームの所有者を締め出すん。Name
'サイズの書き出し
Cells(i, 5) = Fx.Size
'ファイル種別
Cells(i, 3) = Fx.Type
'最終更新日
Cells(i, 4) = Fx.DateLastModified
i = i + 1
Next
End Sub
をVBAエディターにコピーして実行してみてください。
そのフォルダー内のプロパティの一覧が作成されますが
長さ　と　ビットレートの取得の仕方は知りません。