// Add a series of 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 playlist directories:", 512);

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

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

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

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

while(!dirs.atEnd()) {
  iTunes.CreatePlaylist(fso.GetBaseName(dirs.item())).AddFile(dirs.item());
  dirs.moveNext();
}

WScript.Echo("Finished.");