检测所需文件是否在应在的文件夹下，如果不在，提示插入几号盘。

on mouseUp me
findfile
end

on findfile
repeat with i = 1 to 100
n = getNthFileNameInFolder(the moviePath, i)
if n = "mymovie.dir" then
go movie "mymovie"
exit repeat
else
alert "please insert disk 2"
exit repeat
end if
end repeat
end

就在奥古有的，有位朋友写了一个Xtra。