Hilfe bei Ordneraktion

[da_FloZinger]

Hi zusammen,

ich versuche mich gerade ein bisschen an Applescript und würde mir gerne ein Script als Ordneraktion basteln, welches eingescannte Dokumente in Evernote importiert.

Mein Script sieht derzeit so aus:

on adding folder items to this_folder after receiving added_items
    repeat with i from 1 to number of items in added_items
        set new_item to item i of added_items
      
        delay 3
        display dialog "Notiztitel eigenben:" with title "Evernote Importer Script" default answer "" buttons {"Weiter", "Abbrechen"} default button 1 with icon path to resource "Evernote.icns" in bundle (path to application "Evernote")
        set Notiztitel to text returned of the result
      
        tell application "Evernote"
            activate
            # Notizbücher abfragen
            set listOfNotebooks to {}
            set EVNotebooks to every notebook
            repeat with currentNotebook in EVNotebooks
                set currentNotebookName to (the name of currentNotebook)
                copy currentNotebookName to the end of listOfNotebooks
            end repeat
            set Folders_sorted to my simple_sort(listOfNotebooks)
            #Notizbücher anzeigen und auswählen
            set SelNotebook to choose from list of Folders_sorted with title "Evernote Notizbuch auswählen" with prompt ¬
                "Verfügbare Notizbücher:" OK button name "Weiter..." cancel button name "Abbrechen"
            set Notizbuch to item 1 of SelNotebook
          
            # Notiz erstellen  
            create note from file new_item title Notiztitel notebook Notizbuch # tags "TEST"
          
        end tell
    end repeat
end adding folder items to


on simple_sort(my_list)
    set the index_list to {}
    set the sorted_list to {}
    repeat (the number of items in my_list) times
        set the low_item to ""
        repeat with i from 1 to (number of items in my_list)
            if i is not in the index_list then
                set this_item to item i of my_list as text
                if the low_item is "" then
                    set the low_item to this_item
                    set the low_item_index to i
                else if this_item comes before the low_item then
                    set the low_item to this_item
                    set the low_item_index to i
                end if
            end if
        end repeat
        set the end of sorted_list to the low_item
        set the end of the index_list to the low_item_index
    end repeat
    return the sorted_list
end simple_sort

Es läuft soweit auch. Ich kann den Notiztitel eingeben und das Notizbuch auswählen. Aber dann passiert weiter nix.

Könntet ihr mir da vielleicht weiterhelfen?
Vielen Dank


Gruß
Flo