Hi Cetin

Many thanks. This is great code. One thing I noticed is that the network path stops showing when an empty string is passed to start folder like below:
>*oFolder = oShell.BrowseForFolder(0, "Please Select folder", 0,'')

Also can we stop users from selecting say the Recycle Bin. I just want valid directories on the local machine or on the network. I tried changing the 4th para after studying the help (Sorry, I didn't know about BrowseForFolder() function before) but was not very successful, I still could select the control panel printers <g>.

>

>* 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, '')
>