MacのEvernoteでインポートフォルダ機能を使う方法

AppleScriptを使ってそれっぽいことはできる

Macでのフォルダインポートは本当にできないのか。Googleで調べたところ公式でこそサポートされていないものの方法はあるようです。 AppleScript 使って特定のフォルダ配下の写真をまとめてインポートする – TitaniumMobile勉強記    

このAppleScriptを使ったところ、写真に関わらず様々なファイルをフォルダインポートのようにEvernoteに取り込むことができました。しかし、問題点がいくつかありました。 ①フォルダが選べない
「choose folder」という部分でフォルダ選択画面が表示されるようなのですが毎回選択するのメンドクサイ。どうせならスクリプトファイルの中で選んでおいて、スクリプトを起動するたびに選択されたフォルダから取り込んで欲しい。 ②ファイル名をノートタイトルに
上のスクリプトをそのまま使うとノートタイトルが「import picture」になるのですが、ファイル名をそのまま使いたい。拡張子も取り除ければなお良し。 ③ノートブック名を選択可能に
これはデフォルトノートブックのままでもいいかなと思ったのですが、選べるならば選びたいだけです。 ④テキストやHTMLファイルは独特の表記になってほしい
このスクリプトではファイルを「添付ファイルという形」でEvernoteに格納することになっています。テキストファイルやHTMLファイルをEvernoteのノートブックにドラッグした場合、テキストファイルの場合は添付ファイルという形ではなく、そのままノートのテキストになります。HTMLファイルの場合はブラウザで見るような形式になります。 ちなみに当記事のHTMLファイルをEvernoteに入れるとこうなります。

---------------------------------------------##
property nb : "000_Inbox"
-- ※ Evernoteのノートブック名を記述（例は000_Inbox）
property evernoteInboxFolder : "Macintosh HD:Users:UserName:Desktop:ENInbox"
-- ※ インポートフォルダを絶対パスで記述（例はUserName） 区切りは「:」（セミコロン）を使うこと set aFolder to evernoteInboxFolder as alias
set folderList to {}
set f_r to a reference to folderList
tell application "Finder" set folderList to entire contents of aFolder as alias list
end tell repeat with i in f_r set j to contents of i set aInfo to info for j set aF to folder of aInfo try set aInfo to info for j set aF to folder of aInfo on error set aF to false end try set a to j set aStr to a as string set aStr to aStr as Unicode text set aRes1 to retFileNameWithoutExt(aStr) of me set aRes2 to getLastLayerOfDirData(aRes1) of me importToEN(j, aRes2) of me
end repeat on retFileNameWithoutExt(fileNameStr) set fLen to length of fileNameStr set revText to (reverse of (characters of fileNameStr)) as string set anOffset to offset of "." in revText set fRes to text 1 thru (fLen - anOffset) of fileNameStr return fRes
end retFileNameWithoutExt on importToEN(aFile, aRes) tell application "Evernote" set curnote to create note title aRes notebook nb with text "" attachments aFile end tell
end importToEN on getLastLayerOfDirData(aData) set aColon to ":" as Unicode text copy aData to bData if bData ends with ":" then set bData to text 1 thru -2 of bData end if set aLen to length of bData set rData to reverse of (characters of bData) set rData to rData as string set dPos to offset of aColon in rData set resData to text (aLen - dPos + 2) thru -1 of bData return resData
end getLastLayerOfDirData
----------------------------------------------##