On Jan 28, 2006, at 10:50 AM, Simon, Garry wrote: * Process a disk or folder dropped onto it * Search through every level of subfolders for files
This will traverse the folders:
set topLevel to choose folder splitFoldersFromFiles(topLevel)
on splitFoldersFromFiles(inputFolder) tell application "Finder" processFiles(files of inputFolder) set FolderList to folders of inputFolder repeat with thisFolder in FolderList splitFoldersFromFiles(thisFolder) end repeat end tell end splitFoldersFromFiles
on processFiles(FileList) repeat with thisFile in FileList -- File processing goes here. end repeat end processFiles
-- Michelle
-- I'm at an age where I can satisfy my wants without too many guilt feelings. |