on adding folder items to this_folder after receiving added_items tell application "Finder" open added_items end tell tell application "QuickTime Player" activate set QT_version to (QuickTime version as string) set player_version to (version as string) if (QT_version is less than "5.0") or εΒ (player_version is less than "5.0") then beep display dialog "This script requires QuickTime 5.0 or greater." & εΒ return & return & εΒ "Current QuickTime Version: " & QT_version & return & εΒ "Current QuickTime Player Version: " & player_version buttons {"Cancel"} default button 1 end if try set the file_name to the name of movie 1 set the track_statuses to {} set original_file to movie 1 set audio_place to the count of tracks of original_file repeat with i from 1 to audio_place tell original_file set the end of the track_statuses to (enabled of track i) end tell end repeat repeat with k from 1 to audio_place set enabled of every track of original_file to false tell original_file set enabled of track k to true select all copy select none end tell set this_movie to make new movie tell this_movie paste delete (every track whose enabled is false) rewind select at 0 to 0 if (k is 1) then save in (":Users:tom:Desktop:_capture:video track:VID_" & file_name) else if (k is 2) and (audio_place is 3) then save in (":Users:tom:Desktop:_capture:audio track:AUD_" & file_name) else if (k is 3) and (audio_place is 3) then save in (":Users:tom:Desktop:_capture:mic track:MIC_" & file_name) else if (k is 2) and (audio_place is 2) then save in (":Users:tom:Desktop:_capture:mic track:MIC_" file_name) end if end tell end repeat on error error_message beep display dialog error_message buttons {"Cancel"} default button 1 end try tell application "QuickTime Player" to quit end tell end adding folder items to