Obtenez le contenu complet du répertoire avec AppleScript

Je suis sûr qu'il existe une commande shell qui peut le faire plus rapidement, mais voici un moyen en pur Applescript qui vous donne un contrôle total sur le formatage des informations que vous souhaitez afficher.

property kFileList : {}

tell application "Finder"
    set source_folder to choose folder with prompt "Please select directory."
    my createList(source_folder)
end tell

on createList(item_list)
    set the the_items to list folder item_list without invisibles
    set item_list to item_list as string
    repeat with i from 1 to number of items in the the_items
        set the_item to item i of the the_items
        set the_item to (item_list & the_item) as alias
        set this_info to info for the_item
        set file_name to name of this_info
        set end of kFileList to file_name
        if folder of this_info is true then
            my createList(the_item)
        end if
    end repeat
end createList

En passant, il existe également un certain nombre d'applications de liste de fichiers qui peuvent le faire plus rapidement qu'Applescript.

MISE À JOUR : À la suite de cette discussion, voici à nouveau la fonction, mais cette fois en utilisant l'API mise à jour. Cela pourrait probablement nécessiter un peu de nettoyage, mais cela fonctionne en cataloguant mon bureau assez facilement (et c'est un dossier profond et profond pour moi):

property kFileList : {}

tell application "Finder"
    set source_folder to choose folder with prompt "Please select directory."
    my createList(source_folder)
end tell

return kFileList

on createList(mSource_folder)
    set item_list to ""

    tell application "System Events"
        set item_list to get the name of every disk item of mSource_folder
    end tell

    set item_count to (get count of items in item_list)

    repeat with i from 1 to item_count
        set the_properties to ""

        set the_item to item i of the item_list
        set the_item to ((mSource_folder & the_item) as string) as alias

        tell application "System Events"
            set file_info to get info for the_item
        end tell

        if visible of file_info is true then
            set file_name to displayed name of file_info
            set end of kFileList to file_name
            if folder of file_info is true then
                my createList(the_item)
            end if
        end if

    end repeat
end createList

Je dois être abonné aux mauvaises listes de diffusion ou en manquer une car ces modifications de l'API ont été adoptées et je n'en ai jamais entendu parler. J'ai utilisé ma première méthode proposée dans des dizaines de projets en grande partie parce qu'il s'agissait du code proposé à l'origine par Apple, et l'absence totale d'erreurs lors de son utilisation (même au moment d'écrire ces lignes) n'a jamais déclenché pour moi le besoin de mettre à jour quoi que ce soit. .

Le revirement est fair-play, et mes excuses pour le vote négatif malveillant à mmcgrail, et je le remplace par un vote positif. Juste pour être clair, je n'ai jamais pensé que la réponse donnée par mmcgrail était fausse. C'est une excellente méthode de commodité en une ligne, mais je suis restée à l'écart d'après mes commentaires déjà donnés. Mais c'est plutôt son vote négatif et son contexte déclaré qui m'offusquent. En fin de compte, ce n'est que du code, et je pense que nous sommes tous ici pour la même raison : trouver une meilleure façon de faire ce que nous faisons. Il semble que j'ai maintenant quelques mises à jour à mettre en œuvre.

À votre santé