AppleScript with QuickTime

Question

I am trying write an AppleScript Folder Action to convert MP3s to AIFF.
Here is the QT portion of the script:
tell application "QuickTime Player"
activate
set openedFile to open (f as alias)
export front document to aiff_path & f & ".aif" as AIFF
quit application "QuickTime Player"
end tell
The folder action (which I didn't include above) works ok, but nothing happens.
SyB

Answer 1

tell application "QuickTime Player"
activate -- Launch and / or bring forth 'QuickTime'.
set tList to {} -- List to contain obtained date.
tell movie 1 to copy name to end of tList -- Place name of current movie into tList.
repeat
set {tFlag, tResult} to {0, display dialog "(Start Time) ... Subject letter: " default answer "A" buttons {"OK"} default button 1}
-- Place Subject Name and scaled Start Time into tList.
tell movie 1 to set {tSubject, movie_Name, start_time, time_scale} to {text returned of tResult, name, current time, time scale}
copy {tSubject, start_time / time_scale} to {end of tList, end of tList}
if ((button returned of (display dialog "End time of Subject: " & tSubject buttons {"Completed", "Continue..."} default button 2)) is "Completed") then set tFlag to 1
tell movie 1 to set end_time to current time
copy (end_time / time_scale) to end of tList -- Place scaled End Time into tList.
if (tFlag = 1) then exit repeat -- Exit infinite loop when 'Completed' button is selected.
end repeat
tell application "Microsoft Excel"
activate -- Launch and / or bring forth 'Excel'.
if (not (document 1 exists)) then make new document -- Create a new document, if needed.
-- Add header information to Worksheet.
set (value of cell 1 of row 1) to "Movie Title: "
set Column_Titles to {"Subject", "Start Time", "End Time", "Difference"}
repeat with i from 1 to (count Column_Titles)
set (value of cell i of row 3) to (item i of Column_Titles)
end repeat
-- Add contents of tList to the worksheet.
set tInc to 1
repeat with i from 1 to (((count tList) - 1) / 3)
repeat with j from 1 to 3
set tInc to (tInc + 1)
set (value of cell j of row (i + 4)) to (item tInc of tList)
end repeat
set (value of cell (j + 1) of row (i + 4)) to ((item tInc of tList) - (item (tInc - 1) of tList))
end repeat
end tell
end tell
  Mac OS X (10.4.4)