I’m working on an AppleScript to export a folder of documents as PNG files. The script iterates through successfully opening and closing the documents, but no files are actually exported. Please advise.
Script content:
set folderName to POSIX path of (choose folder)
set findResults to (do shell script “find " & folderName & " -name ‘*.graffle’ | sed ‘s#//#/#’”)
set graffleFiles to every text item of splitString(findResults, return)
–“Graffle Files: " & graffleFiles
repeat with graffleFile in graffleFiles
set graffleFileP to POSIX file graffleFile
convertGraffleFile(graffleFileP)
end repeat
on convertGraffleFile(graffleFileP)
tell application “OmniGraffle”
open graffleFileP
set targetFile to (do shell script “echo” & graffleFileP & " | sed ‘s#.graffle##’”)
–set targetFileP to POSIX file graffleFileP & “.png”
set targetFileP to targetFile & “.png”
log "… saving " & targetFileP
tell front document to export as “PNG” scope “current canvas” to POSIX file targetFileP
–tell front document to export as “Graffle” scope “current canvas” to POSIX path of (choose folder)
close front document
end tell
end convertGraffleFile
on splitString(theString, theDelimiter)
set oldDelimiters to AppleScript’s text item delimiters
set AppleScript’s text item delimiters to theDelimiter
set theArray to every text item of theString
set AppleScript’s text item delimiters to oldDelimiters
return theArray
end splitString
Many thanks!
MM
