Meta data of mp3 and wav files to Excel

[TimvMechelen]

Hi all,
Is it possible to get all meta data of mp3 and wav files into excel of a specific folder?
I need the data: filename, artists, song title, bpm, genre, album and key of the song.

Thank you in advance.

 

[Domenic]

I just experimented and made the file extension visible and added .JPG (case sensitive) to the code and it made the macro work. Thank you.

Ah yes, missed it. For a case-insensitive match, you can use the following...

If UCase(Right(strFilename, 4)) = ".JPG" Or UCase(Right(strFilename, 5)) = ".JPEG" Then

What language can I add to resize the columns and turn the data into an Excel table with alternating line colors?

Try...

With wksResults
    .Range("A1").Resize(UBound(arrData, 2) + 1, UBound(arrData, 1) + 1).Value = Application.Transpose(arrData)
    .Columns.AutoFit
    .ListObjects.Add(SourceType:=xlSrcRange, Source:=.UsedRange, xlListObjectHasHeaders:=xlYes, TableStyleName:="TableStyleMedium2").Name = "MyTable"
End With

Change the name of the table style and name of the actual table as desired.

 

[csenor]

Hi Domenic. Where did you find that table with the shell file properties? I'm trying to add a few more values, but the correct value isn't lining up with what is in the table you posted.

 

[Domenic]

I'm not sure what you mean, but if you have a new question, please start a new thread.

 

[csenor]

You posted a she’ll file table on the first page of this thread. 0= file name, 1= size, etc. When I use that table to add Fstop or ISO, it doesn’t correctly correspond with that table. Where is the source for that table?

 

[Domenic]

Oh I see, yeah you can use the following macro to list the shell file properties. Change the path to the desired folder, run the macro, and a new worksheet will be added to the active workbook where the properties will be listed, along with their corresponding index number.

Sub ListShellFileProperties()

    Dim shell As Object
    Dim folder As Object
    Dim row As Long
    Dim i As Long
    
    Set shell = CreateObject("Shell.Application")
    Set folder = shell.Namespace("C:\Users\Domenic\Documents")
    
    Worksheets.Add
    
    row = 0
    For i = 0 To 500
        row = row + 1
        Cells(row, "A").Value = i
        Cells(row, "B").Value = folder.getdetailsof(folder.items, i)
    Next i
    
End Sub