on 3/18/06 10:32 PM, "RBNUBE" <rbnube at mabenterprises dot com> wrote:
> Instead of:
> ListBox1.Cell(ListBox1.LastIndex,1)=SourceDictionary.Value(i)
>
> Try this:
> ListBox1.Cell(ListBox1.LastIndex,1) =
> SourceDictionary.Value(SourceDictionary.Key(i))
Heh... Emails that pass in the night :)
So I now have two issues and then this is done. And they appear to be
related.
The idea here is to find the files, their paths, and their permissions. If
there are any files missing when comparing the source and target, I need to
find them, check their permissions, and then copy them over to the target.
So, I'm using MBS to do the permissions thing. As the files come through
initially, I'm able to add their permissions to the listboxes.
But, I can't do that for the missing files, because they really only exist
in the dictionaries.
So I have this:
For h = 0 to targetDictCnt
If not SourceDictionary.HasKey(TargetDictionary.Key(h)) then
SourceList.AddRow TargetDictionary.Key(h)
SourceList.Cell(SourceList.LastIndex,1)=TargetDictionary.Value(TargetDiction
ary.Key(h))
SourceList.Cell(SourceList.LastIndex,2)=getThePermissions(TargetDictionary.K
ey(h))
End If
Next
getThePermissions is a function which calls the MBS plugin and looks up the
permissions for the file. But the line which calls the permissions function
is giving an illegal exception error.
So at first I thought to simply add the permissions to the dictionaries
along with the rest of the files before testing. But the dictionaries only
accept one key and one value, and both are being used. So I'm a bit stuck...
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>
