Lista plików mp3

Dim fso, folder, plik, pliki, out
Set fso = CreateObject("Scripting.FileSystemObject")

sciezka  = "g:\mp3"
Set folder = fso.GetFolder(sciezka)
Set pliki = folder.Files
Set out  = fso.CreateTextFile("spis.txt")

For Each plik in pliki
'lista = lista & " - " & plik.path & NewLine
  out.WriteLine (plik.path)
   Next