I need some help with trying to extract details from MP3 files that I use for work purposes.
I have a library of over 900 MP3 tracks and I found the attached excel file that runs a macro which reads a music folder and extracts details of the MP3 tracks. There is one parameter that I need to extract but I'm unsure what string I need to use. I need to extract the composer details. The file has the following code that extracts the other details I require.
If UCase(Right(filename, 3)) = "MP3" Then
Row = WorksheetFunction.CountA(Range("A:A")) + 1
Cells(Row, 1) = currdir 'path
Cells(Row, 2) = filename 'filename
Cells(Row, 3) = FileInfo(currdir, filename, 20) 'artist
Cells(Row, 4) = FileInfo(currdir, filename, 14) 'album
Cells(Row, 5) = FileInfo(currdir, filename, 21) 'title
Cells(Row, 6) = FileInfo(currdir, filename, 26) 'track
Cells(Row, 7) = FileInfo(currdir, filename, 16) 'genre
Cells(Row, 8) = FileInfo(currdir, filename, 27) 'duration
Cells(Row, 9) = Application.Round(FileLen(currdir & filename) / 1024, 0) 'size
Application.StatusBar = Row
I've tried every number between 1 and 100 after 'filename' but none extract the composer details. I know the composer details exist in the metadata of the file as it lists the composers when I view the MP3 file properties in windows explorer. I tried to attach a short MP3 to this post, but got invalid file.
If anybody can assist me with this then that would be much appreciated.
The original author of the xls file requests on their webpage for no contact for help with their files, but states he is happy for people to freely use the file.
Cheers
Harry
Bookmarks