Piethein Strengholt's Blog

Handig script wat ik ooit heb gebouwd. Met dit vbscript is het mogelijk om van een complete muziek collectie in mappen playlisten te maken voor itunes. Opslaan als itunes.vbs , locatie binnen het scripten aanpassen en uitvoeren met script vbscript.vbs

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:UsersMp3")
Set colSubfolders = objFolder.Subfolders

For Each objSubfolder in colSubfolders

     Wscript.Echo objFolder & objSubfolder.Name
     Set objApp = CreateObject("iTunes.Application")
     Set objPlaylist = objApp.CreatePlaylist(objSubfolder.Name)

     dim fileFolder
     fileFolder = objFolder & "" & objSubfolder.Name
     Wscript.Echo fileFolder

     set fso = CreateObject("Scripting.FileSystemObject")
     set folder = fso.GetFolder(fileFolder)
     set fc = folder.Files

     ' Connect to iTunes app
     set iTunes = CreateObject("iTunes.Application.1")
     set mainLibrary = iTunes.LibraryPlaylist

     For Each f in fc
    FileName = f.path
    WScript.Echo FileName

    ' Add the file to mainLibrary & new playlist
    mainLibrary.AddFile (FileName)
    objPlaylist.AddFile (FileName)

     Next

' Done; release object
set iTunes = nothing

Next