recursion limit when creating file list of harddrive

[Geoff Canyon]

Sounds like just the fact that you don't have the scrollbar I used to
experiment with the depth. The mouseUp code is just for testing -- the
function is self-contained.

gc

On Tue, Oct 27, 2015 at 4:32 PM, JB <sundown at pacifier.com> wrote:

> I was not able to get the mouseUp handler to
> work but I got the function to return a list but it
> probably not the same list.  I used this.
>
> on mouseUp
>     answer folder "Pick a folder you want to walk:"
>     put it into whatFolder
>   --put directoryListing(fld "directory",round(the thumbposition of
> scrollbar "depth")) into field "listing"
>     put directoryListing(whatFolder,2) into fld id 342435
> end mouseUp
>
> Any suggestions?
>
> JB
>
>
>
> > On Oct 27, 2015, at 12:43 PM, Michael Doub <mikedoub at gmail.com> wrote:
> >
> > Geoff,
> >
> > I would suggest replacing the first statement of the function with
> >
> > if c is empty then put -1 into c    -- set the default to go all the way
> down
> > put whatFolder & "/" & cr into R  -- add a "/" to directory output so
> they are more easily parsed later
> >
> > -= Mike
> >
> >
> > On 10/27/15 12:18 PM, Geoff Canyon wrote:
> >> 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 <gcanyon at gmail.com>
> wrote:
> >>
> >>> On Sat, Oct 24, 2015 at 7:28 PM, Matthias Rebbe | M-R-D <
> >>> matthias_livecode_150811 at 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 at 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 at 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 at lists.runrev.com
> Please visit this url to subscribe, unsubscribe and manage your
> subscription preferences:
> http://lists.runrev.com/mailman/listinfo/use-livecode
>