Lista filer i mappar med undermappar

Kanske inte alls vad du frågar efter. Men, iallafall.

set root_mapp to (choose folder)

tell application "Finder"
	set files_ to count files of entire contents of root_mapp
	set folders_ to count folders of entire contents of root_mapp
end tell

display dialog ("Var: " & POSIX path of root_mapp) & return & return & ¬
	"Filer: " & files_ & return & "Undermappar: " & folders_ & return & ¬
	"Sammanlagt: " & (files_ + folders_) buttons ¬
	{"OK"} default button 1

thevils modell funkar, men "entire" contents är sjukt långsamt när man utför det på en stor volym, så långsamt att det är i praktiken oanvändbart för större saker.

Om det räcker med en lista med POSIX-sökvägar och det är ok att köra med do shell script så kan du köra såhär

set myFolder to quoted form of (POSIX path of (choose folder))
set myFolder to text 1 thru -3 of myFolder & "'"
set myFoundFiles to every paragraph of (do shell script "find " & myFolder & " -type f")