| I have this script that worked fine in QT 6 bun now it gives me an error since I installed quicktime 7.0. any ideas would be great!
here it is:
property movieFolderPath : "MacOS X:Users:Ric:Clients:Eight Real:Watched:"
on open theList set theFolder to item 1 of theList set movieFolderPath to theFolder as text watchFolder() end open
on run set movieFolderPath to (choose folder with prompt "Choose a folder to watch:") as text watchFolder() end run
on watchFolder() repeat tell application "QuickTime Player" launch activate set ignore auto play to true set ignore auto present to true stop every movie close every movie «event MVWRenfs» «class devi» 1 -- .......here is the error-- end tell
set movieList to list folder movieFolderPath without invisibles repeat with z in movieList try set movieFile to alias (movieFolderPath & z as text) set movieFileInfo to info for movieFile if not alias of movieFileInfo and (file type of movieFileInfo is in {"MooV", "MPEG"} or name extension of movieFileInfo is in {"mov", "mpg", "mpeg"}) then --set movieName to name of movieFileInfo as text --say movieName tell application "QuickTime Player" open movieFile present movie 1 scale screen tell movie 1 repeat while not done delay 1 end repeat end tell close movie 1 saving no end tell end if --on error errorMsg number errorNum --activate --display dialog (errorNum as text) & ": " & errorMsg buttons {"OK"} --error errorNum end try end repeat end repeat end watchFolder
on quit tell application "QuickTime Player" to «event MVWRexfs» «class devi» 1 end quit |