David, Thanks for the optimizations. You're right, there were a few other things I was doing with the code. BTW: This was developed in MC, not Rev, and at the time MC's "main" function was "directories", with "folders" as a synonym.
Ken Ray Sons of Thunder Software Email: [EMAIL PROTECTED] Web Site: http://www.sonsothunder.com/ ----- Original Message ----- From: "David Vaughan" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Sunday, February 24, 2002 3:03 AM Subject: Re: Return all paths, recursively to deepest level > Ken > > Coincidentally, I had just stared writing a recursive directory walker > when Siva asked for one and you supplied. Very timely, thanks. > I noticed, however, that you use the construct "the directories" which > proves to be a synonym for "the folders" which is the function returned > if you search the Transcript Dictionary for "directories" or "folders". > > What other synonyms exist in Transcript and where are they documented? > Are synonyms deprecated? > > Incidentally, below is my refinement of your code to remove redundancies > (presumably from something else you were doing) and increase speed. > > regards > David > > global gHierList > > on mouseUp > put empty into gHierList > -- put empty into field 1 > answer folder "Pick a folder you want to walk:" > if it is empty then exit mouseUp > -- put it into defFold > directoryWalk it > sort gHierList > put gHierList into field 1 > -- set the defaultFolder to defFold > end mouseUp > > on directoryWalk whatFolder > set the defaultFolder to whatFolder > put the files into temp > repeat for each line x in temp > put whatFolder & "/" & x & return after gHierList > end repeat > put the folders into tDirList > repeat with x = 2 to the number of lines of tDirList > directoryWalk (whatFolder & "/" & (line x of tDirList)) > end repeat > end directoryWalk > > On Saturday, February 23, 2002, at 06:11 , Ken Ray wrote: > > > Siva, here you go: > > > > global gHierList,gMainFolder,gBaseLevels > > > > on mouseUp > > put "" into gHierList > > answer folder "Pick a folder you want to walk:" > > if it = "" then exit mouseUp > > set the itemDel to "/" > > put it into gMainFolder > > put the number of items of gMainFolder into gBaseLevels > > directoryWalk gMainFolder > > put gHierList into field 1 > > end mouseUp > > > > on directoryWalk whatFolder > > set the itemDel to "/" > > if "(2)" is in pDel then put 2 into numSpcs > > else put 4 into numSpcs > > put " " into spcPad > > set the directory to whatFolder > > put the files into temp > > sort temp > > repeat with x = 1 to the number of lines of temp > > put whatFolder & "/" & (line x of temp) into line (the number of > > lines > > of gHierList)+1 of gHierList > > end repeat > > put the directories into tDirList > > sort tDirList > > repeat with x = 2 to the number of lines of tDirList > > directoryWalk (whatFolder & "/" & (line x of tDirList)) > > end repeat > > end directoryWalk > > > > > > Enjoy! > > > > Ken Ray > > Sons of Thunder Software > > Email: [EMAIL PROTECTED] > > Web Site: http://www.sonsothunder.com/ > > > > ----- Original Message ----- > > From: "Sivakatirswami" <[EMAIL PROTECTED]> > > To: "Metacard List" <[EMAIL PROTECTED]>; > > <[EMAIL PROTECTED]> > > Sent: Friday, February 22, 2002 11:38 PM > > Subject: Return all paths, recursively to deepest level > > > > > >> Aloha: > >> > >> I think about 2 years ago Kevin or Richard sent me a script that would > >> return the full path for all folders and files, recursively down from > >> the > >> current working directory... but I can't seem to find that script... > >> Also > > I > >> can't seem to find the archives any more for the metacard card list > > serve... > >> > >> Does anyone have such a script? One could use Rinaldi's getDir > >> external, > > and > >> just replace the ":" with "/" in the list returned but that would not > >> be > >> cross platform... the returned output from the function would look > >> like > >> this: > >> > >> MyHardDrive/MetaCard 2.3.1/ KT Stacks > >> MyHardDrive/MetaCard 2.3.1/ KT Stacks/ INNERSEARCH > >> MyHardDrive/MetaCard 2.3.1/ KT Stacks/ INNERSEARCH/Drums hi 2 > >> MyHardDrive/MetaCard 2.3.1/ KT Stacks/ INNERSEARCH/Drums hi > >> fidelity.aiff > >> MyHardDrive/MetaCard 2.3.1/ KT Stacks/ INNERSEARCH/images > >> MyHardDrive/MetaCard 2.3.1/ KT Stacks/ INNERSEARCH/images/0616001 > >> Ocean > > Sky > >> .pict > >> MyHardDrive/MetaCard 2.3.1/ KT Stacks/Dev Tools-Practice > >> MyHardDrive/MetaCard 2.3.1/ KT Stacks/Dev Tools-Practice/heim2.mc > >> > >> > >> etc. down through to the deepest sub folder and it's files. > >> > >> TIA > >> > >> Hinduism Today > >> > >> Sivakatirswami > >> Editor's Assistant/Production Manager > >> [EMAIL PROTECTED] > >> www.HinduismToday.com, www.HimalayanAcademy.com, > >> www.Gurudeva.org, www.hindu.org > >> > >> Read The Master Course Lesson of the Day at > >> http://www.gurudeva.org/lesson.shtml > >> > >> _______________________________________________ > >> metacard mailing list > >> [EMAIL PROTECTED] > >> http://lists.runrev.com/mailman/listinfo/metacard > >> _______________________________________________ > >> use-revolution mailing list > >> [EMAIL PROTECTED] > >> http://lists.runrev.com/mailman/listinfo/use-revolution > >> > > > > _______________________________________________ > > use-revolution mailing list > > [EMAIL PROTECTED] > > http://lists.runrev.com/mailman/listinfo/use-revolution > > > > _______________________________________________ > use-revolution mailing list > [EMAIL PROTECTED] > http://lists.runrev.com/mailman/listinfo/use-revolution > _______________________________________________ use-revolution mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/use-revolution
