macOS using applescript to control quicktime play

Here you go. I made QuickTime Player crash when trying it on a 720p movie though
Edit: it'd probably be better if I didn't convert to seconds, and instead divide by (movcut*1000) to preserve accuracy..

If you don't want new movies just remove the code after the part that sets the start of the selection.

As for pausing, I don't know if you can do that within the script. You would need to have to store the values first, and then allow for a way to continue processing. That might be more suited for AppleScript Studio.

AppleScript for playing movies one AFTER another in QuickTime

The following script plays a bunch of movies in QuickTime one AFTER another -- it waits for a movie to finish playing, then waits for a delay period, then closes that window, and opens the next movie. It took me hours of browsing to get all the info required to put this script together -- am surprised this is the case for an Apple product!
-----------------------------------------------------------------------------
tell application "QuickTime Player"
-- get the list of movie files to be played
tell application "Finder"
set myfolder to "VideoCD:MPEGAV"
set filelist to list folder myfolder
end tell
-- play the movie files one after another
set myfolder to "VideoCD:MPEGAV:"
repeat with movie1 in filelist
-- get the full path to the movie
set fullmovie1 to myfolder & movie1
-- play the movie
open fullmovie1
present document 1 scale screen
-- wait until movie is done
repeat until (get done of document 1)
end repeat
-- pause for a few seconds before next movie
-- (delay of greater than 2 seconds doesn't seem to work)
delay 2
-- close the played movie
close document 1
end repeat
end tell

macdosth, you are D man! I too have always wondered why a sequential playback of multiple Quicktime movies was never included or created. It's not always practical to resort to cutting/pasting into one large file. Phenomenal contribution. This will be highly useful. Thank you!

I tried modifying macdosth's script to ask what folder to use, but I can't get it to work...
--------------------------------------------------
tell application "QuickTime Player"
-- get the list of movie files to be played
tell application "Finder"
set myfolder to (choose folder with prompt "Select the folder containing QuickTime moves...")
set filelist to list folder myfolder
end tell
-- play the movie files one after another
set myfolder to myfolder --(???) not sure what should go here
repeat with movie1 in filelist
-- get the full path to the movie
set fullmovie1 to myfolder & movie1
-- play the movie
open fullmovie1
present document 1 scale screen
-- wait until movie is done
repeat until (get done of document 1)
end repeat
-- pause for a few seconds before next movie
-- (delay of greater than 2 seconds doesn't seem to work)
delay 2
-- close the played movie
close document 1
end repeat
end tell
--------------------------------------------------

Can anyone figure out how to do this?

tarek01 said:

I tried modifying macdosth's script to ask what folder to use, but I can't get it to work...

Click to expand...

I think your problem (or a problem) is in these lines:


In macdosth's script, he sets myfolder manually [set myfolder to "VideoCD:MPEGAV"], whereas you use choose folder.

In his script, myfolder is a string, therefore "set fullmovie1 ..." line works fine.

choose folder returns an alias to the folder, not a string. Therefore you can't just concatenate a filename to the end. The fix for you would be something like:


You'll get a string back that you can use later in the script.

[Brief sermon ... you would have seen the error yourself if list folder weren't so permissive on what data it accepts ... end of sermon]

BTW, this script is burping on the "present document ..." line so I'm assuming you folks are running Leopard. I'm on SL, so I can't check other QT-related issues.

mt

Thanks mystery. I just found your same solution from another thread. Yes, I'm on a Leopard machine. SL must require a small variation for the "present" part. Here's the updated and working script (without the PRESENT MOVIE setting):


So, how could permissions be implemented to detect filetypes? It'd be great if it were able to play files in subfolders. I'm using this to play tutorial movies continuously, and they're usually organized in subfolders.

Here's a simple script to travel through a folder tree:


Where it says "display dialog filename" is where you'd put your code to play a movie.

I tested this with a simple folder tree and I'm not sure you can be certain movies will appear in a certain order, unless your movies use a certain naming convention. (Something like: 01- Folder: 01 - Movie, 02 - Movie; 02 - Folder: 01 - Movie, 02 - Movie, 03 - Movie; 03 - Folder: 01 - Movie; etc.)

Bear in mind, this operates on file items, not strings that represent file paths. Sometimes this way is better, sometimes not.

If you need the path, you need to coerce a file item to a string, and you'll get the HFS path.

mt

(picking up from your other thread ...)

list folder gives a list of filenames. If you had a list of file items, you'd have some more control. How about doing something like this:


Pardon me for leaving a lot for you so spackle over. I don't have a lot of movies on my hard disk to see exactly how this works. If you need more help stitching this all together, let me know.

mt

Glad to know the script is useful.

I now run into a problem where .DS_Store files are present in the movie folders and that breaks the script. The following version works around this problem, it presents all files in a single folder. It also lets the user identify the folder, rather than hardcoding it. However, see the second version to be posted later, where I try to display files from a hierarchy of folders, that one breaks.


===Display JUST THE movie files in a single folder, one AFTER another=====

global movielist -- list of movies in a particular folder
global topmoviefolder -- alias
global moviefolder -- Mac full pathname
global movieExt -- filename extensions for movies

set movieExt to {".wmv", ".dat", ".avi", ".mpg"}

-- first start with the topmost folder containing the movies..
tell application "Finder"
-- prompt user for Folder containing the movies
set topmoviefolder to (choose folder with prompt "Select the folder containing QuickTime moves...") -- as string
display dialog topmoviefolder as text

-- now, some convoluted gymnastics to get the Mac full pathname of the chosen folder
-- (someone please replace this with a single command!)
set moviefolder to (topmoviefolder as text)
set moviefolder to POSIX path of moviefolder
set moviefolder to (POSIX file moviefolder) as string
-- end gymnastics
display dialog moviefolder

-- debug output..
set movielist to list folder topmoviefolder
display dialog movielist as string

my displayMovies(movielist)

end tell -- Finder


on displayMovies(movielist)
-- play the movie files one after another
tell application "QuickTime Player"
repeat with movie1 in movielist
repeat with Ext in movieExt
if movie1 ends with Ext then
-- get the full path to the movie
set fullmovie1 to moviefolder & movie1
-- play the movie
open fullmovie1
present document 1 scale screen
-- wait until movie is done
repeat until (get done of document 1)
end repeat
-- pause for a few seconds before next movie
-- (delay of greater than 2 seconds doesn't seem to work)
delay 2
-- close the played movie
close document 1
end if -- file name extension check
end repeat -- file ext
end repeat
end tell -- QuickTime
end displayMovies

=================================================

This version TRIES TO present all the movie files in a hierarchy of folders, however it barfs on some AppleScript problem with using file aliases versus full Mac pathnames in script subroutines. Anyone game to quickly fix this script?

Thanks.

=================================================
TRY TO display all the movies in a folder hierarchy ONE AFTER ANOTHER, skipping over non-movie files while traversing the entire folder hierarchy.
The script currently breaks on some AppleScript issue with using file aliases versus full Macintosh pathnames.. perhaps someone knows what is broken and
can fix this?
=================================================

global movielist -- list of movies in a particular folder
global topmoviefolder -- alias
global moviefolder -- Mac full pathname
global movieExt -- filename extensions for movies

set movieExt to {".wmv", ".dat", ".avi", ".mpg"}

-- first start with the topmost folder containing the movies..
tell application "Finder"
-- prompt user for Folder containing the movies
set topmoviefolder to (choose folder with prompt "Select the folder containing QuickTime moves...") -- as string
display dialog topmoviefolder as text

-- now, some convoluted gymnastics to get the Mac full pathname of the chosen folder
-- (someone please replace this with a single command!)
set moviefolder to (topmoviefolder as text)
set moviefolder to POSIX path of moviefolder
set moviefolder to (POSIX file moviefolder) as string
-- end gymnastics
display dialog moviefolder

-- debug output..
set movielist to files of topmoviefolder
display dialog movielist as string
set movieSubFolders to folders of topmoviefolder
display dialog movieSubFolders as text
-- the above works fine here, but not in the other "subroutines" below!

my displayFolder(topmoviefolder)

end tell -- Finder


on displayFolder(moviefolder)
-- first display all movie files in the folder; folder may contain non-movie files
try
set movielist to files of moviefolder
display dialog movielist as string
my displayMovies(movielist)
end try

-- next, display any movies in each of the subfolders

try
set movieSubFolders to folders of moviefolder
display dialog movieSubFolders as text
repeat with moviefolder in movieSubFolders
display dialog moviefolder as text
my displayFolder(moviefolder)
end repeat
end try
end displayFolder

on displayMovies(movielist)
-- play the movie files one after another
tell application "QuickTime Player"
repeat with movie1 in movielist
repeat with Ext in movieExt
if movie1 ends with Ext then
-- get the full path to the movie
set fullmovie1 to moviefolder & movie1
-- play the movie
open fullmovie1
present document 1 scale screen
-- wait until movie is done
repeat until (get done of document 1)
end repeat
-- pause for a few seconds before next movie
-- (delay of greater than 2 seconds doesn't seem to work)
delay 2
-- close the played movie
close document 1
end if -- file name extension check
end repeat -- file ext
end repeat
end tell -- QuickTime
end displayMovies

=================================================