[VB6] Creare una cartella e condividerla (creare "share") da codice

[tuono_2000]

salve a TUTTI... programmatori incalliti...
Io sono "tuono_2000"...

Avrei bisogno di conoscere i "comandi" per dichiarare una cartella, definita "FILE", condivisa in una rete LAN...

Io impiego questo controllo per creare la cartella ma nella creazione mi manca la condivisione...

Lo scopo di questo è per poter "trasferire" all'accensione del mio programma un "gruppo di file" che vengono aggiornati ogni ora.

Rem controllo se la directory esiste o la creo
Dim X, C, S
C = FILE
rem creazione oggetto di di gestione
Set X = CreateObject("Scripting.FileSystemObject")
If (X.FolderExists(FILE)=true) Then 'controllo esistenza cartella
rem cartella esistente
msgbox "Cartella " & UCase(file) & " - " 'nome completo 

cartella,vbinformation,"cartella esistente"
Else
rem cartella non esistente 
MkDir (FILE) 'realizzazione cartella
rem # condivisione cartella in LAN #
End If

Grazie in anticipo per aver cercato di aiutarmi...

[oregon]

Non si e' capito tanto ...

Tu vuoi creare una cartella a partire da uno share gia' esistente? O vuoi creare lo share?

La seconda operazione non te la consiglio, per la prima basta dare il percorso alla MkDir

MkDir "\\server\share\cartella"

Ovviamente dovrai avere i permessi di scrittura nello share.

[tuono_2000]

ciao "oregon"

Mi sembrava di essere stato chiaro... con il codice...

Mi spiego meglio... non ti preoccupare;

Con un mio programma desidero:
Se esiste la cartella; Impostarla come Condivisa in rete LAN
Se NON esiste la cartella; Realizzarla e Condividerla in rete LAN

Per un utente è una procedura facile... CONDIVIDERE LA CARTELLA IN RETE
ClickDestroMouse sulla cartella
Selezionare "condivisione e portezione..."
Spuntare, nell'area "condivisioni di rete...", "condividi la cartella in rete"
Confermare con "ok"

C'è un comando o codice per poterlo fare con un programma?
Se SI qualè?

grazie ancora...