Thanks to all - and the article looks very useful. I'll study it in detail after this.

After testing, I came up with

procedure getnetdir

lparameters inprompt

* Gets directory including those on a network
* Returns empty string if no selection made, name otherwise

if empty(inprompt)
	inprompt = "Please Select folder"
endif

Declare integer GetActiveWindow in WIN32API
oShell = createobject("Shell.Application")
oFolder = oShell.BrowseForFolder(GetActiveWindow(), inprompt, 0 )

returnpath = ''

if (! isnull(oFolder)) and type('ofolder.items') = 'O'
	returnpath = addbs(oFolder.Items.Item.Path)
endif

if ! directory(returnpath)
	returnpath = ''
endif

return returnpath

Mike