Export All OmniGraffle Files In A Folder To PDF

exportPDF.applescript

tell application "Finder"
  set the theFolder to choose folder with
    "Pick a folder containing the OmniGraffle files you want to export to PDF:"
  set theList to every file of the theFolder whose
  name extension is "graffle"
end tell

repeat with theFile in theList
  set theOutFile to ((do shell script "basename \"" & (theFile) & "\"" & " .graffle") & ".pdf")
  set theInFile to theFile as string
  tell application "OmniGraffle Professional 5"
    activate
    open file (theInFile)
    save front window in file theOutFile
    close front window
  end tell
end repeat