RE: List of all files and folders for a given volume

[RBNUBE]

Instead of:
ListBox1.Cell(ListBox1.LastIndex,1)=SourceDictionary.Value(i)

Try this:
ListBox1.Cell(ListBox1.LastIndex,1) =
SourceDictionary.Value(SourceDictionary.Key(i))

_______________________________________________
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>