Hi
I need one VB6 example of using NetShareCheck function
Thanks

Hi
Google came up with this netshare vb6 google result

Private Sub Command1_Click()    Dim sharetype As Long    Dim success As Long    Dim bServer() As Byte    Dim bShare() As Byte    bServer() = "\laptopxp" ' -->\server name    bShare() = "C:windowscursors" ' -->folder to find    success = NetShareCheck(bServer(0), bShare(0), sharetype)    Print success & " " & sharetype End Sub

quote:

---

...
I have noticed however that the full path to the folder on the remote
machine must be specified, and the drive letter must be upper case. The
correct results seem to be reliably returned if you ucase the entire string,
e.g. bShare() = UCase$("C:windowsCursors").

---

Hi
I tried your example but it doesn't work:
I have this error:
compilation error, sub or function non defininited

Maybe you forgot to declare the NetShareCheck API...

add somewhere in your code:

Private Declare Function NetShareCheck Lib "netapi32.dll" _   (servername As Byte, _    device As Byte, _    sharetype As Long) As Long

Use Private if you are calling it from the same module or declaare it Public if you need to call it from everywhere in your project

hope this helps.

____________________________
AndreaVB

Thanks
Now is ok