Hi All
I want to convert HD1024 to HD720 format using QuickTime. How to Open file in Quick Time and Save file name to *_HD720.mov ?
property extension_list : {“txt”}
tell application “Finder”
set Afolder to “Macintosh HD:Users:cxleung:tmp:” as alias
set a_list to every file in Afolder
repeat with theFile in a_list
copy name of theFile as string to FileName
if FileName ends with extension_list then
– display dialog FileName
end if
end repeat
end tell
tell application “QuickTime Player”
activate
–display dialog TheStartupDisk
– display dialog UsersIDNumber
end tell
Hi All
Any suggestion export HD720 format ?
tell application “Finder”
set the startup_disk to the name of the startup disk
end tell
set user to do shell script “whoami”
set input_folder_name to “Input”
set input_folder to startup_disk & “:Users:” & user & “:tmp:”
set output_folder to startup_disk & “:Users:” & user & “:tmp1:”
set file_extension to “mov”
set the_folder_list to list folder input_folder without invisibles
repeat with x from 1 to count of the_folder_list
set the_file to input_folder & item x of the_folder_list
set output_file to output_folder & item x of the_folder_list & file_extension
tell application “QuickTime Player”
activate
open file the_file
– set dimensions of document 1 to {720, 400}
save front document in output_file
close front document
end tell
end repeat