on open theFolders
	repeat with theFolder in theFolders
		set folderInfo to info for theFolder
		if the folder of folderInfo then
			importAlbum from theFolder
		else
			set folderName to displayed name of folderInfo as string
			display dialog folderName & " is not a folder."
		end if
	end repeat
end open

on importAlbum from theFolder
	tell application "Finder"
		set theSongs to every item of theFolder
		set theSongs to sort theSongs by name
	end tell
	repeat with theSong in theSongs
		set songName to the name of theSong
		set songFile to theSong as text
		set songTitle to getSongTitle from songName
		if songTitle is not false then
			--say "Importing song " & songTitle
			open theSong
			delay 2
		else
			--say "Skipping file " & songName
			delay 1
		end if
	end repeat
end importAlbum

--filter the songName to mp3's only
on getSongTitle from songFileName
	set songTitle to false
	if songFileName contains "mp3" then set songTitle to songFileName
	return songTitle
end getSongTitle