on open someFolder
    tell application "Finder"
        repeat with eachSubDir in (get every folder of folder someFolder)
            try
                --display dialog (eachSubDir as text)
                repeat with eachFile in (get every file of folder (eachSubDir as alias))
                    try
                        if (get name of eachFile) does not contain ".m3u" then
                            tell application "iTunes" to add eachFile as string
                            --display dialog (eachFile as text)
                        end if
                    on error errmsg
                        display dialog errmsg
                    end try
                end repeat
            end try
        end repeat
    end tell
end open