Вытащить из папки имя и продолжительность mp3 файлов в таблицу - VBA

Формулировка задачи:

Здравствуйте, подскажите, пожалуйста, можно ли вытащить продолжительность и имя всех mp3 файлов, находящихся в конкретной папке, чтобы они были в таблице?

Решение задачи: «Вытащить из папки имя и продолжительность mp3 файлов в таблицу»

textual
                            Листинг программы 
                        

                            Private Sub Test()
    Dim iPath$, iFileName$, iRow&: iRow = 2
    iPath = "C:\MY_MUSIC\" 'Укажите свою папку и не забудьте слэш
    iFileName = Dir(iPath & "*.mp3")
    
    If iFileName = "" Then MsgBox "Нет mp3 файлов", vbCritical, "": Exit Sub
       
    Application.ScreenUpdating = False
    With CreateObject("Shell.Application").Namespace(CVar(iPath))
         Do
             Cells(iRow, 1) = iFileName
             Cells(iRow, 2) = .GetDetailsOf(.ParseName(iFileName), 22)
             iFileName = Dir: iRow = iRow + 1
         Loop Until iFileName = ""
    End With
    Application.ScreenUpdating = True
End Sub
                        