Stone Design Forums

-- make a new unique folder name based on the current time
set basedir to "~/Documents/Create/slides-"
set theDate to current date
set destination to basedir & year of theDate & ¬
   "-" & month of theDate & "-" & day of theDate & "+" & time of theDate ¬
   & "/"


tell application "Create"
   tell the front document
      set thepages to pages
      set totalpages to pagecount
      repeat with i from 1 to totalpages
         if i < 10 then set filename to destination & "Slide_0" & i & ".pdf"
         if i > 9 then set filename to destination & "Slide_" & i & ".pdf"
         set currentpage to i
         tell page i
            export in filename
         end tell
      end repeat
   end tell
end tell