>>Hi, there is a way to show all computers and all shared resouces within a network from Vfp. Thanks !!!
>
>Something like getdir ? Or you can use BrowseForComputer too.
>
>

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.Path

PS:Also in VFP7 via GetDir() you can do the same thing.
>Also check anetresources().

Cetin,

I think this should be:

#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.