Hehe, found it just by looking at Andrew's sig.
http://www.civilsolutions.com.au/publications.htm

>>Hi everyone,
>>
>>I'm looking for ideas to receive directory with its native format (e.g. preserving capital and non-capital letters). Ed Rauh's solution with Shell (from FAQ section) doesn't satisfy, so I'd like to find some alternatives. VFP6.0
>>
>>I saw one very complicated method on Andrew's site, do you know the link or simpler approach?
>>
>>Thanks in advance.
>
>Do you mean the directory names?
>
>This works for me:
>

oFSO = CreateObject("Scripting.FileSystemObject")
>oRoot = oFSO.GetFolder("D:\")
>For Each oFolder In oRoot.SubFolders
>	? oFolder.Name
>Next