home *** CD-ROM | disk | FTP | other *** search
/ Pro-motion 2 / PM02-Disk1.iso / mac / Parts / Main.dir / Script_26_Copy-Action.ls < prev    next >
Encoding:
Text File  |  2001-01-31  |  468 b   |  17 lines
  1. global activsp, activsam, filenamelist, s_sozaipath
  2.  
  3. on action me
  4.   copyfilename = "PM02-" & filenamelist[activsam] & ".mov"
  5.   topaht = s_sozaipath & copyfilename
  6.   if the machineType = 256 then
  7.     filesaveasdialog(EMPTY, copyfilename, copyfilename & " √á¬ù√âR√âs√Ö[", 1)
  8.   else
  9.     filesaveasdialog(EMPTY, copyfilename, copyfilename & " √á¬ù√âR√âs√Ö[")
  10.   end if
  11.   if the result = EMPTY then
  12.     exit
  13.   end if
  14.   frompath = the result
  15.   copyfile(topaht, frompath)
  16. end
  17.