* Get directory * Get directory specifying \\server\share as root *oFolder = oShell.BrowseForFolder(0, "Please Select folder", 0,'\\server\share') * Get directory or file *oFolder = oShell.BrowseForFolder(0, "Please Select folder or file", BIF_BROWSEINCLUDEFILES) * Get directory or file specifying \\server\share as root *oFolder = oShell.BrowseForFolder(0, "Please Select folder or file", ; * BIF_BROWSEINCLUDEFILES,'\\server\share') #define BIF_BROWSEFORCOMPUTER 0x1000 #define BIF_BROWSEFORPRINTER 0x2000 #define BIF_BROWSEINCLUDEFILES 0x4000 oShell = createobject("Shell.Application") oFolder = oShell.BrowseForFolder(0, "Please Select folder", 0 ) RETURN IIF( type('oFolder.Items.Item')='O', oFolder.Items.Item.Path, '')Cetin