AppleScript per rinominare le sottocartelle

Ho una struttura di file per le foto che è Anno > Data, quindi all'interno di ogni cartella di date ho immagini RAW più una cartella chiamata 'jpg', che contiene copie jpg dei file RAW.

Devo spostare le cartelle jpg in una nuova posizione, ma rinominarle per prime, al nome del primo file nella cartella, che è sempre un descrittore, quindi da 'jpg' a 'Jack e Jill-1. jpg '

Dopo aver rinominato tutte le cartelle, (10 anni di foto), posso rimuovere l'estensione e il numero lasciandomi con una cartella chiamata "Jack and Jill"

Sono un principiante assoluto con AppleScript, ma ho uno script che funziona in un certo senso in quanto funziona perfettamente su una cartella di test sul mio desktop, ma non riesco a farlo funzionare su un drive montato, o il mio unità di rete.

La sceneggiatura che ho macellato sta probabilmente trasportando un bagaglio in eccesso e può essere tagliata verso il basso, ma cerco davvero una funzione sul modulo in quanto deve essere eseguita una sola volta.

Lo script è puramente per la ridenominazione iniziale, ho il lato di rimozione dell'estensione che funziona bene tramite Better Rename.

tell application "Finder"
    -- Defining Pro Folders 
    set pro_folder to folder POSIX file "/Users/JeffOliver/Desktop/photo"
    set all_pro_folders to every folder of pro_folder

    -- Iterate through folders and check if folder name is greater than one character
    repeat with parent_folder in all_pro_folders
        set counter to 0 -- reset a counter variable we use for the end of the name 
        set child_folders to every folder of parent_folder
        repeat with current_folder in child_folders
            set fold_name to the name of current_folder
            log (fold_name)
            if (the length of fold_name < 8) then -- this will allow names > 9  
                set counter to counter + 1 -- increment the counter every time we find valid folder
                set new_name to name of first file of current_folder
                log (new_name)
                set the name of current_folder to new_name
            end if
        end repeat
    end repeat
end tell

Qualsiasi aiuto per far funzionare questo dispositivo su un'unità di rete è molto apprezzato