oShell = createobject("Shell.Application") >>oFolder = oShell.BrowseForFolder(0, "Please Select folder", 0 ) >>*oFolder = oShell.BrowseForFolder(0, "Please Select folder", 0, '\\server\share' ) >>? oFolder.Items.Item.PathPS:Also in VFP7 via GetDir() you can do the same thing.
#define BIF_BROWSEFORCOMPUTER 0x1000 >oShell = CreateObject("Shell.Application") >oFolder = oShell.BrowseForFolder(0, "Please Select Computer", BIF_BROWSEFORCOMPUTER)If anything other than a computer is selected the OK button is disabled.