List Files of Chosen Folder

[hripka]

This AScript works in OS9. Now in OSX I get the following error message: “Finder got an error: Unknown object type.”

This script originally came from “Sal’s AppleScript Snippets” at http://users.aol.com/nyhthawk/QuarkXPress_Scripts.html (Thanks Sal!)

What is going on, and how do I fix it? This was a very helpful script because OSX got rid of the Print Window command.

tell application "Finder"
   set theFolder to choose folder
   set theList to (every file of theFolder) as list
   set theList to (sort theList by name) as list
   set defaultNameList to "Every file of folder: " & (name of theFolder)
   set theNameList to defaultNameList
   repeat with thisItem in theList
      set theNameList to theNameList & return & name of thisItem
   end repeat
end tell

if theNameList is defaultNameList then
   beep
   display dialog "No files found." buttons {"Cancel"} default button 1
end if

try
   set the clipboard to theNameList
   beep 2
on error
   beep
end try

Thanks in advance for your consideration.

[jonn8]

This should do what you want (full paths with recursion):

–Open this script in a new Script Editor window.

set f to (choose folder)
tell application “Finder” to set e to f’s entire contents
if e = {} then
beep
display dialog “No items found in the folder “” & f & “”.” buttons {“Cancel”} default button 1 with icon 0 giving up after 10
else
set filelist to {“Contents of " & f & return & return}
repeat with i from 1 to (count e)
set end of filelist to (”" & e’s item i & return)
end repeat
set the clipboard to “” & filelist
beep 2
end if

Or just item names of the root level of the chosen folder:

–Open this script in a new Script Editor window.

set f to (choose folder)
tell application “Finder” to set e to name of items of f
if e = {} then
beep
display dialog “No items found in the folder “” & f & “”.” buttons {“Cancel”} default button 1 with icon 0 giving up after 10
else
set filelist to {“Contents of " & f & return & return}
repeat with i from 1 to (count e)
set end of filelist to (”" & e’s item i & return)
end repeat
set the clipboard to “” & filelist
beep 2
end if

Jon

---

[This script was automatically tagged for color coded syntax by Convert Script to Markup Code]

[hripka]

THANKS! That was exactly what I was looking for!

Your help is greatly appreciated.

–Herbert Ripka
Reiman Publications
Greendale, WI