FoxPro/Visual FoxPro - Compartir Carpeta por medio de codigo

Hola amigos foxeros, tengo un gran problema que me gustariq que pudieran ayudarme, eso parece sencillo, pero no he podido encontrar la forma de hacerlo, es decir estoy tapado, bueno el problema es el siguiente:

necesito cmpartir una carpeta por medio de codigo, pero no he encontrado la manera de hacerlo, si alguien tiene una respuesta de antemano se los agradezco.

Se que con la Funcion API ShellExecute es puede, pero no tengo el codigo a manos.

Saludos,

Cuando lo tengan favor de eviarme el codigo como se hace esto.

Hola, probá con el comando
! run /N net share documentos:c:\

Saludos

jafcorp

Hola, probe con esto, pero tengo un problema, haber si alguno sabe porque el error.

nFile_Shared = 10 &&Número de archivos compartidos
nConMax = 25 &&Número de conexiones permitidas
cNombreCompartir = "VIFPrueba" &&Es el nombre que verán los usuarios de la red
cRuta = "C:\VIF04" &&Carpeta a ser compartida
cComent = "Carpeta compartida para hacer pruebas ...." &&Comentarios

objWMI = GetObject("winmgmts:\\") &&Aqui envia un error
objNewShare = objWMI.Get("Win32_Share")

errRet = objNewShare.Create(cRuta, cNombreCompartir , nFile_Shared, nConMax, cComent)

? errRet

&&Este es el error:
&&Código de error OLE 0x800401ea: El moniker no puede abrir un archivo.