Batch m3u playlist creation for all folders, with the playlist named like the folder Options

[zambaretzu]

I've been trying to find an easy way to do this, but I can't seem to find exactly what I need. I just want a simple way to:

• go through all my folders recursively
• for each folder with mp3s and oggs, making an m3u for each
• have the m3u in the actual folder, not the root folder
• name the m3u just like its containing folder.

Any help is appreciated.

[masterofimages]

I've been trying to find an easy way to do this, but I can't seem to find exactly what I need. I just want a simple way to:

• go through all my folders recursively
• for each folder with mp3s and oggs, making an m3u for each
• have the m3u in the actual folder, not the root folder
• name the m3u just like its containing folder.

Any help is appreciated.

This script should sort you out:

CODE

Const ForReading = 1, ForWriting = 2, ForAppending = 8

delete = false
set args = WScript.Arguments
if args.Count > 0 then
    if LCase(args(0)) = "-d" then
        delete = true
    end if
end if

set fso = createobject("scripting.filesystemobject")
wscript.echo WriteM3u(fso.GetAbsolutePathName("."), delete) & " files written"

function WriteM3u(path, delete)
    dim count
    set fso = createobject("scripting.filesystemobject")
    set fdr = fso.GetFolder(path)
    if fdr.SubFolders.Count = 0 then
        m3u = path & "\" & fdr.name & ".m3u"
        if fso.FileExists(m3u) then
            if delete then
                wscript.echo "... deleting existing file"
                fso.DeleteFile m3u
            else
                wscript.echo "... renaming existing file"
                fso.MoveFile m3u, m3u & ".old"
            end if
        end if
        wscript.echo "... writing """ & fdr.name & ".m3u"""
        set m3ufile = fso.OpenTextFile(m3u, ForWriting, True)
        for each f in fdr.Files
            if right(f.Name, 3) = "mp3" or right(f.Name, 3) = "ogg" then
               m3ufile.WriteLine(f.Name)
            end if
        next
        m3ufile.Close
        count = 1
    else
        count = 0
        for each subfolder in fdr.subfolders
            wscript.echo "Searching """ & subfolder.path & """"
            count = count + WriteM3u(subfolder.path, delete)
        next
    end if
    
    WriteM3u = count
end function

Just save it to "WriteM3u.vbs" and stick it in the root directory of your mp3 and ogg files. To run, type:

CODE

cscript WriteM3u.vbs

By default it will rename any existing m3u files it finds. If you would rather delete them, just add "-d" to the end of the command-line, i.e.

CODE

cscript WriteM3u.vbs -d

-Paul

[Julien]

Thank you Paul, this is a nice and useful script

[masterofimages]

Thank you Paul, this is a nice and useful script

Glad you found it useful. Enjoy