VBA macro to create mp3 list

Can the VBA macro for Word handle the following task: create lists of mp3 files, i.e. scan specified drives or folder for mp3 files(mp3, ogg), to decode the information(from ID3 tags) that is stored on each .mp3 file (artist, album, year, size), extract this data and create playlists based on this data? The lists will be stored as .M3Us (standard playlist format for MP3s).
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Here is sample code to read the ID3 tags from the files:

Extract the ID3 Tag from an mp3 File
SiroccoAuthor Commented:
well, and how implement this to handle full task- i.e. scan specified drives or folders and create numbered lists of mp3 files?
Something like this can be used to get the info into a ListBox:

'add a reference to "Microsoft Scripting Runtime"
Dim fso As Scripting.FileSystemObject
Dim fld As Folder
Dim file As file
Dim id3 As ID3Tag

Set fso = New FileSystemObject
'Set this to be the folder to scan
Set fld = fso.GetFolder("C:\Documents and Settings\Me\My Documents\My Music\")

ListBox1.ColumnCount = 3

'loop through each file in the folder
For Each file In fld.Files
    'it it's an MP3, add it to the list
    If file.Type Like "MP3 audio file*" Then
        'grab the ID3 info
        Call GetID3Tag(fld.Path & "\" & file.Name, id3)
        ListBox1.AddItem file.Name
        ListBox1.List(ListBox1.ListCount - 1, 1) = id3.Artist
        ListBox1.List(ListBox1.ListCount - 1, 2) = id3.Year
    End If
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

SiroccoAuthor Commented:
I find some solution that list files in specified folder:


How to make a small adjusting of this code:

1. list only file name - without full path, i.e.  'Rainbow.mp3'
(Currently macro list full path - C:\Documents and Settings\User\My Documents\mp3utilities\Rainbow.mp3 )

2. show file size in Megabytes, not bytes

3. to number the list of files (01, 02..)

4. to adjust distance between columns

5. to set preffered font name and size
SiroccoAuthor Commented:
Please refund my points. I find macro http://support.microsoft.com/?kbid=306248
which just should be adjusted to meet my needs.
SiroccoAuthor Commented:
Please close my question.
SiroccoAuthor Commented:
Please close my question.
SiroccoAuthor Commented:
Please close my question and refund points.
SiroccoAuthor Commented:
Please close my question and refund points.
PAQed with points refunded (125)

Community Support Moderator

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.