Microsoft Office Forums - View Single Post - Is it possible to extract mp3's start time and end time by VBA?

gmayor · 02-09-2023, 10:26 PM

You can read the metadata using the code below. However the start time will surely always be 0 and the metadata will give you the length of the mp3. I have left in the code that will read the rest of the metadata should you need it.

Code:

Option Explicit

Sub Test()
'Based on code from
'https://stackoverflow.com/questions/54152307/how-do-i-read-the-metadata-information-from-a-closed-workbook-using-excel-vba
Dim oDetails, sName

    Set oDetails = GetDetails("D:\Sound Data\Pink Floyd - Complete collection\Pink Floyd [1995] - Pulse (Live)\Pink Floyd - 23 - Comfortably Numb.mp3")
    'If oDetails.Exists("Tags") Then Debug.Print oDetails("Tags")
    'If oDetails.Exists("Title") Then Debug.Print oDetails("Title")
    'Debug.Print String(40, "-")
    For Each sName In oDetails
Debug.Print sName & " = " & oDetails(sName)
    Next

End Sub

Function GetDetails(sPath)

    Dim sFolderName, sFileName, oShell, oFolder, oFile, oDetails, i, sName, sValue

    SplitFullPath sPath, sFolderName, sFileName
    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.Namespace(sFolderName)
    Set oFile = oFolder.ParseName(sFileName)
    Set oDetails = CreateObject("Scripting.Dictionary")
    'For i = 0 To 511
        'sName = oFolder.GetDetailsOf(oFolder.Items, i)
        'sValue = oFolder.GetDetailsOf(oFile, i)
        sName = oFolder.GetDetailsOf(oFolder.Items, 27) '27 is the length
        sValue = oFolder.GetDetailsOf(oFile, 27)
        If sName <> "" And sValue <> "" Then oDetails(sName) = sValue
    'Next
    Set GetDetails = oDetails

End Function

Sub SplitFullPath(sPath, sFolderName, sFileName)

    With CreateObject("Scripting.FileSystemObject")
        If Not .FileExists(sPath) Then Exit Sub
        sFolderName = .GetParentFoldername(sPath)
        sFileName = .GetFileName(sPath)
    End With

End Sub