Splasm Software Discussions

tell application "iTunes"
   if selection is not {} then
      set theSelection to selection
      set theAlbumTitle to the album of (item 1 of theSelection)
      set theAlbum to {}
      repeat with eachTrack in theSelection
         if theAlbumTitle is equal to the album of eachTrack then
            copy eachTrack to the end of theAlbum
         else -- new Album: create the project
            set theProject to my abbCreateProject(theAlbum)
            set theAlbumTitle to the album of eachTrack
            set theAlbum to {eachTrack}
         end if
      end repeat
      set theProject to my abbCreateProject(theAlbum) -- the last one
      -- set theProject to my abbCreateProject(theSelection)
      tell application "Finder"
         activate
         reveal (POSIX file theProject) as alias
      end tell
   else
      display dialog "Select some tracks first..." buttons {"Cancel"} default button 1 with icon 2 giving up after 15
   end if
   
end tell

set cmd1 to "mkdir " & quoted form of (projectPath)
   set cmd2 to "mkdir " & quoted form of (projectPath & "/Files")
   set cmd3 to "mkdir " & quoted form of (projectPath & "/Images")
   try
      do shell script cmd1
      do shell script cmd2
      do shell script cmd3
   on error
      display dialog "Couldn’t create/complete project bundle “" & projectPath & "” (File exists?) - Don’t use it!" buttons {"Cancel"} default button 1 with icon 2 giving up after 15
      error number -128
   end try
e