| Well, I wound up doing it with a loop.
on open (ItemList) set FileList to {} set FolderList to {} tell application "Finder" repeat with thisItem in ItemList if kind of thisItem is "folder" then copy thisItem to end of FolderList else copy thisItem to end of FileList end if end repeat end tell
my processFiles(FileList) repeat with thisFolder in FolderList my splitFoldersFromFiles(thisFolder) end repeat end open
on splitFoldersFromFiles(inputFolder) tell application "Finder" my processFiles(get files of inputFolder) set FolderList to folders of inputFolder repeat with thisFolder in FolderList my splitFoldersFromFiles(thisFolder) end repeat end tell end splitFoldersFromFiles
on processFiles(FileList) repeat with thisFile in FileList tell application "Finder" set extension hidden of thisFile to true end tell end repeat end processFiles
-0- Michelle
-- Chastity always takes its toll. In some it produces pimples; in others, sex laws. -- Karl Kraus |