on 3/16/06 7:56 PM, "Joseph J. Strout" <[EMAIL PROTECTED]> wrote:
> Message: 23
> Subject: Re: List of all files and folders for a given volume
> From: "Joseph J. Strout" <[EMAIL PROTECTED]>
> Date: Thu, 16 Mar 2006 20:56:12 -0700
>
> At 7:28 PM -0800 3/16/06, Jeffrey Ellis wrote:
>
>> I'm trying to get a complete list of all files and folders that exists on a
>> given volume, as many levels down as they may go, and whether they're
>> invisible or not, and, if possible, even if they are contained as part of an
>> application's package contents, i.e. -- everything.
>>
>> Is there a way to do this?
>
> Sure. If you search the archives for "recursion" you'll probably
> find several implementations of this -- it's the classic example of a
> recursive algorithm.
>
> In brief, you make a function that processes a folder, by iterating
> over all the items it contains. For any item that's a folder, the
> function calls itself, passing in that item. (Or you can do it by
> maintaining a to-do list in the form of an array, and when you find a
> folder, you add it to your to-do list, and keep going until the to-do
> list is empty.)
>
> Best,
> - Joe
Looks like I've got quite a bit of this working. I'd now like to compare the
two lists, one for the source volume and one for a target volume, and mark
any discrepancies.
I've tried just a simple if a<>b comparison going one row at a time in each
list, then inserting a row into the Target (b) list with the missing
information from the Source list, to make sure that going forward the lists
will still match. Then I mark the added row.
But it doesn't seem to work. I have manually counted the files in each test
folder and know there is a difference of about 54 files from the source to
the target. Yet I'm marking more than 6000 files as missing.
Here's my current (rather primitive) code...
missingFiles=0//init
for compare = 0 to SourceList.Listcount-1
a=SourceList.Cell(compare,0)
b=TargetList.Cell(compare,0)
p=SourceList.Cell(compare,1)
if a<>b then
TargetList.insertRow compare-1, " ADDED."+a
TargetList.Cell(TargetList.LastIndex,1)=p
missingFiles= missingFiles+1
else
end if
Next
SourceList.PressHeader(0)
TargetList.PressHeader(0)
staticText6.text=cstr(missingFiles)
Thanks :)
All My Best,
Jeffrey
I found the issue, I think, but I don't know how to put in a check to fix
it.
The above is functioning as expected when the Target list is missing a file
which exists in the Source list. But it breaks when a file is in the Target
which doesn't exist in the Source. Then, all the files after that don't
match, and it adds all files it finds until the end of the list.
But I'm not sure how I can test for that instance?
All My Best,
Jeffrey
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
