Have Automator parse down folders and list all filenames without their extension

Solution 1:

Automator and Scripting Approach

The Automator Actions you want are:

• Ask for Finder Items, with Type set to Folders.
• Run Shell Script, with Shell set to /usr/bin/perl.
• New Text File

For the shell script, copy and paste in:

use strict;
use warnings;
use File::Basename;
use File::Find;

find(sub {
    return if (-d $File::Find::name);
    my($filename,undef,undef) = fileparse($_,qr/\.[^.]*/);
    print $filename."\n";
}, shift);

You can use the New TextEdit Document action if you want the resulting file list to appear in TextEdit but not saved to disk.

To learn more about using Automator, see Apple's Mac Basics: Automator.

Solution 2:

You can also use a Run Shell Script action:

Or just run a command like this in Terminal:

find ~/path/to/dir -type f|sed 's|.*/||;s|\.[^.]*$||'>~/Desktop/files.txt