// Add a series of artis/album directories to iTunes as playlists

// (c) 2008 Darrin M. Gorski - darrin _at_ gorski.net


var shell = WScript.CreateObject("Shell.Application");

var folder = shell.BrowseForFolder(0, "Select the folder containing your album/artist directories:", 512);

if(folder == null) WScript.Quit();

var iTunes = WScript.CreateObject("iTunes.Application");

var fso = WScript.CreateObject("Scripting.FileSystemObject");


var artists = new Enumerator(fso.GetFolder(folder.Self.Path).SubFolders);

while(!artists.atEnd()) {

  var albums = new Enumerator(fso.GetFolder(folder.Self.Path+"\\"+fso.GetBaseName(artists.item())).SubFolders);

  while(!albums.atEnd()) {
    var listname = fso.GetBaseName(artists.item())+" - "+fso.GetBaseName(albums.item());
    iTunes.CreatePlaylist(listname).AddFile(albums.item());
    albums.moveNext();
  }

  artists.moveNext();
}

WScript.Echo("Finished.");