Compartir una Carpeta en VB6

[oblacionx]

Disculpen he logrado que una aplicacion cree una carpeta dentro de una ruta determinada lo que ocurre es que ahora necesito que despues de crearla sea compartida si alguien me puede ayudar se lo agradecere.

[Nightmare]

Creeme que no me fue sencillo conseguirlo pero al fin despues de mucho indagar por aqui y por alla lo logre y pude conseguir compartir una carpeta usando codigo de visual basic, espero te sea de utilidad



Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 25
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set objNewShare = objWMIService.Get("Win32_Share")
errReturn = objNewShare.Create _
("C:\Carpeta", "CarpetaCompartida", FILE_SHARE, _
MAXIMUM_CONNECTIONS, "Esta es una carpeta compartida.")
WScript.Echo "errReturn = " & errReturn