There's an article by Andrew Coates at http://www.civilsolutions.com.au/publications/getfolder.htm that shows how to use SHBrowseForFolder API.

Another way is to use the Shell.Application object

lcRootFolder = "..."
*lnParentWindowhWnd = Thisform.hWnd
*lnParentWindowhWnd = _SCREEN.hWnd
lnParentWindowhWnd = 0

oShell = createobject("Shell.Application")
oFolder = oShell.BrowseForFolder(lnParentWindowhWnd, "Please Select folder", 0, lcRootFolder )
? oFolder.Items.Item.Path

There is an article by George Tasker in the July 2000 issue of the VFUG newsletter (www.vfug.org) about it. See also http://msdn.microsoft.com/en-us/library/bb774065.aspx

>
>using lcdir = getdir('','','',64)
>
>is there a way to maintain the original folder case? Many thanks.