on save_names(note_names)
set pathToDocuments to (path to documents folder) as text
set pathToFolder to pathToDocuments & "Evernote:Notes:" -- as text
set FileName to text returned of (display dialog "Set new file name:" default answer "Content.txt")
set filePath to (pathToFolder & FileName)
tell application "System Events"
if not (exists file filePath) then
make new file at end of folder pathToFolder with properties {name:FileName}
end if
end tell
set filePath to filePath as alias
tell application "TextWrangler"
set existFile to open filePath
set the contents of existFile to note_names
save existFile
end tell
end save_names
Yvan KOENIG (VALLAURIS, France) mercredi 24 octobre 2012 19:07:57