Revised. Now in function form, with error checking and depth control. You
can hand in a positive number to get that number of layers deep, or a
negative number to go all the way down. I tested it on my home directory
and it came back fine (after some time). I haven't (knowingly) tested with
unusual characters.
on mouseUp
put directoryListing(fld "directory",round(the thumbposition of
scrollbar "depth")) into field "listing"
end mouseUp
function directoryListing whatFolder,c
put whatFolder & cr into R
set the directory to whatFolder
if c = 0 or the result is not empty then return R
put the files into tFileList
sort tFileList
replace cr with cr & whatFolder & "/" in tFileList
put whatFolder & "/" & tFileList & cr after R
put line 2 to -1 of the folders into tDirList
sort tDirList
repeat for each line L in tDirList
put directoryListing((whatFolder & "/" & L),(c-1)) after R
end repeat
return R
end directoryListing
On Mon, Oct 26, 2015 at 12:00 AM, Geoff Canyon <gcan...@gmail.com> wrote:
> On Sat, Oct 24, 2015 at 7:28 PM, Matthias Rebbe | M-R-D <
> matthias_livecode_150...@m-r-d.de> wrote:
>
>> I am using a script snippet which was posted by Scott Rossi to the list
>> and was originally from Geoff Canyon in 2002.
>> http://lists.runrev.com/pipermail/metacard/2002-August/002274.html
>>
>
> Man, do I hate looking at my old code...
>
_______________________________________________
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
