Partage d'un repertoire en VB

ShadeBob - 12 juin 2001 à 17:44
cs_Tonio2 Messages postés 6 Date d'inscription lundi 22 mars 2004 Statut Membre Dernière intervention 2 avril 2004 - 24 mars 2004 à 10:27
Bonjour,

Je cherche le moyen de partager un répertoire en VB.

Il y a bien une entree network\lanman dans la base de registre mais apparemment ca ne marche pas...

QQ aurait la solution?

Merci d'avance

ShadeBob

2 réponses

cs_Tonio2 Messages postés 6 Date d'inscription lundi 22 mars 2004 Statut Membre Dernière intervention 2 avril 2004
24 mars 2004 à 10:19
Tu peux faire comme ça ;)
Tu aura besoin de ADSI je pense,
sinon il existe un autre moyen que j'utilise avec WMI mais j'ai pas le code sous la main.

' The name of the share.
strShareName = "MyShare"

' Machine should
Set objServer = GetObject("WinNT://Machine/lanmanserver")

' Match the machine where you want to create the share.
Set objNewShare = objfServer.Create("Fileshare", strShareName)

' The path you want the share to point to.
objsNewShare.Path = "c:\temp"

' Maximum number of users. Can be between 1 and 32767
objsNewShare.MaxUserCount = 10

objsNewShare.SetInfo

' Clean Up
Set objServer= Nothing
Set objNewShare = Nothing
0
cs_Tonio2 Messages postés 6 Date d'inscription lundi 22 mars 2004 Statut Membre Dernière intervention 2 avril 2004
24 mars 2004 à 10:27
J'ai retrouve comment moi je fais, ca vient de là :

http://www.microsoft.com/technet/community/scriptcenter/filefolder/default.mspx

et là tu as des exemples pour creer, lister et supprimer un partage, en Anglais ;)
0
Rejoignez-nous