Hi trend,

If you don't need the file size, then you can use the information from the
article "How to read the filenames of all the files in a directory into an
array" at http://word.mvps.org/faqs/macrosvba/ReadFilesIntoArray.htm

You would end up with something like the following:

Dim sPath As String
Dim MyFile As String
Dim Counter As Long

sPath = "c:\test\"
'Create a dynamic array variable, and then declare its initial size
Dim DirectoryListArray() As String
ReDim DirectoryListArray(1000)

'Loop through all the files in the directory by using Dir$ function
MyFile = Dir$(sPath & "*.mp3")
Do While MyFile <> ""
   DirectoryListArray(Counter) = MyFile
   MyFile = Dir$
   Counter = Counter + 1
Loop

'Reset the size of the array without losing its values by using Redim
Preserve
ReDim Preserve DirectoryListArray(Counter - 1)
For Counter = 0 To UBound(DirectoryListArray)
   sFileInfo = sFileInfo & Counter + 1 & vbTab
   sFileInfo = sFileInfo & DirectoryListArray(Counter) & vbTab
   sFileInfo = sFileInfo & FileLen("c:\test\" &
DirectoryListArray(Counter)) / 1000 & vbCrLf
Next Counter
MsgBox sFileInfo

This shows the size of the file in kilobytes (you have to help yourself some
to get it to megabytes). You will need to change the line
MyFile = Dir$(sPath & "*.mp3")
to
MyFile = Dir$(sPath & "*.M3U")
to account for the other file type.

HTH,
Dave