7 Kwi 2008

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