Import Quicktime Movies

 

Compatibilities: Required Xtras: Buddy API

This item has not yet been rated

Imports all QT files in a set directory.

--Code by Chuck Neal --Chuck@mediamacros.coc on importQT whichLib, thePath     set startMember = the number of members of castLib whichLib   set Files = baFileList( thePath, "*.mov" )     repeat with x = 1 to count(files)         new #QuickTimeMedia, member (x + startMember) of castlib whichLib     --names member by file name and removes extension     set the name of member (x + StartMember) of castlib whichLib = char 1 to ((the number of chars in getAt(files, x)) - 4) of getAt(files, x)     set the fileName of member (x + startMember) of castlib whichLib = thePath  & getAt(files, x)       end repeat   end