Getting Directory Tree

[Gordon Tillman]

Hi Derek,

I left one small piece out, sorry!

function GetFolderContents pFolder
     local tSaveDefaultFolder, tFolder, tFolders, tList
     put the defaultFolder into tSaveDefaultFolder
     set the defaultFolder to pFolder
     get the folders
     filter it without "."
     filter it without ".."
     put it into tFolders
     local tFiles, tFile
     get the files
     put it into tFiles
     put pFolder & return after tList
     repeat for each line tFile in tFiles
         put pFolder & "/" & tFile & return after tList
     end repeat
     repeat for each line tFolder in tFolders
         put GetFolderContents(pFolder & "/" & tFolder) after tList
     end repeat
     set the defaultFolder to tSaveDefaultFolder
     return tList
end GetFolderContents

--gordy