#define BIF_BROWSEFORCOMPUTER 0x1000 #define BIF_BROWSEFORPRINTER 0x2000 #define BIF_BROWSEINCLUDEFILES 0x4000 oShell = createobject("Shell.Application") * Get directory oFolder = oShell.BrowseForFolder(0, "Please Select folder", 0 ) * 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') if type('oFolder.Items.Item')='O' ? oFolder.Items.Item.Path else ? 'Cancelled' endifCetin