I have been testing it out and it is working good so far. I set the cursor to watch after selecting. I am not sure if setting it to busy in a repeat will take too much time on large operations.
Is there and easy way to have it only list the folder paths? JB > On Oct 25, 2015, at 3:39 PM, Alex Tweedly <a...@tweedly.net> wrote: > > Well, it's a sad comment on my filing system, but it was easier to rewrite > this handler from scratch (and memory) than it was to find the original :-) > > Note this is done as a handler rather than a function, because it has 3 > return values - a list of files, a list of folders, and a list of any errors. > It would be trivial to convert to a function if you prefer that; I just > dislike functions with return parameter values. > > So, it's had a decent half-hour of testing, but no more than that. Usual > money back guarantee applies .... > > btw - there is a variant using "repeat for each line" which is marginally > more efficient, but it depends on a quirk of the current LC implementation, > which allows appending to the variable being iterated over - so I won't > mention it here; it could (conceivably, but not likely) fail in some future > version. > > > on mouseUp > local theFolder > answer folder "Start where" > put it into theFile > > local filesList, folderList, errorList > put the millisecs into tStart > AllFiles theFile, true, filesList, folderList, errorList > > put filesList into field "Field 1" > > end mouseUp > > command AllFiles theFolder, pDetail, @pFiles, @pFolders, @pErrors > > set the defaultFolder to theFolder > if the result is not empty > then > put "initial folder" & theFolder &CR afte rpErrorList > exit to top > end if > > put 0 into tHighest > put 0 into tCurrent > > add 1 to tHighest > put theFolder into tA[tHighest] > > repeat until tCurrent >= tHighest > > add 1 to tCurrent > > put tA[tCurrent] into tNow > set the defaultFolder to tNow > if the result is not empty then > put "Problem with" && tNow &Cr after pErrors > next repeat > end if > > if pDetailed then > put the detailed files into tF > else > put the files into tF > end if > > repeat for each line L in tF > put tNow & "/" & L &CR after pFiles > end repeat > > put the folders into tF > filter tF without ".*" > > repeat for each line L in tF > add 1 to tHighest > put tNow & "/" & L into tA[tHighest] > end repeat > > end repeat > > combine tA with CR > put tA into pFolders > > end AllFiles > > Let me know of any problems. > -- Alex. > > On 25/10/2015 03:12, JB wrote: >>> On Oct 24, 2015, at 5:33 PM, Alex Tweedly <a...@tweedly.net> wrote: >>> >>> >>> If that's not it, then you need to change to a serialized rather than a >>> recursive treewalk - I'm sure that's been posted on the use-list some time >>> ago (if you can't find it, let me know and I'll dig one up) >>> >>> -- Alex. >> I would like a copy of that if you >> dig one up. >> >> JB >> >> >> _______________________________________________ >> use-livecode mailing list >> use-livecode@lists.runrev.com >> Please visit this url to subscribe, unsubscribe and manage your subscription >> preferences: >> http://lists.runrev.com/mailman/listinfo/use-livecode > > > _______________________________________________ > use-livecode mailing list > use-livecode@lists.runrev.com > Please visit this url to subscribe, unsubscribe and manage your subscription > preferences: > http://lists.runrev.com/mailman/listinfo/use-livecode > _______________________________________________ use-livecode mailing list use-livecode@lists.runrev.com Please visit this url to subscribe, unsubscribe and manage your subscription preferences: http://lists.runrev.com/mailman/listinfo/use-livecode
