How to batch convert .pages to .pdf with automator & applescript

Question

Hi all,
As the title states, I want to drag and drop one (or a whole stack) of .pages documents onto an automator app, and have it pump out .pdfs...
Here is my code, it crashes with an error, but I'm really new to this so I don't really know what's going wrong.
on run {input, parameters}
  tell application "Finder"
  repeat with aFile in input
  if class of (item aFile) is not folder then
  set {tName, fileExt} to {name, name extension} of aFile
  if fileExt is not missing value and fileExt is not "" then
  set tName to "PDFs/" & (text 1 thru -((count fileExt) + 2) of tName) & ".pdf"
  tell (get container of aFile)
  if not (exists folder "PDFs") then make new folder at it with properties {name:"PDFs"}
  tell application "Pages"
  set mydoc to open file aFile -- open input file in Pages
  export mydoc to file tName as PDF --do the exporting
  close mydoc saving no -- close the original file without saving
  end tell
  end tell
  end if
  end if
  end repeat
  end tell
end run

Answer 1

mirror318 wrote:
One more thing, is it easy to change that script so that the output is put in a subfolder called "PDFs" (the folder would go in wherever the .pages file was)?
This should save to a subfolder called "PDFs" in the Folder where the pages file is located:
on open fs
  my proceed:fs
end open
on proceed:fs
  tell application "Finder"
  repeat with i from 1 to (get count of items in fs)
  if (name extension of item i of fs) is "pages" then
  --set PDFfile to text 1 thru -7 of (item i of fs as text) & ".pdf"
  set PDFfile to name of (item i of fs)
  set PDFfile to text 1 thru -7 of PDFfile & ".pdf"
  if not (exists (parent of (item i of fs) as text) & "PDFs") then
  make new folder at (parent of (item i of fs)) with properties {name:"PDFs"}
  end if
  set PDFfile to (parent of (item i of fs) as text) & "PDFs:" & PDFfile as text
  tell application "Pages"
  set mydoc to open (item i of fs) -- open input file in Pages 
  export mydoc to file PDFfile as PDF --do the exporting 
  close mydoc saving no -- close the original file without saving 
  end tell
  end if
  end repeat
  end tell
end proceed: