Urgent !!!!Résolu

Question

Salut tt le monde,
Je veux cr&#233;er un dossier de partage a l'aide du VB mais je ne sais pas comment le faire
pourriez vous m'aidez de cr&#233;er ce dossier de partage SVP.
Merci d'avance.

cs_mguilhem · Accepted Answer

Pour vérifier que le partage est effectif ou non,
il faut redémarrer windows (ce n'est qu'alors qu'apparaîtra la petite main de partage sur l'îcone dossier), ou il est possible de le vérifier en tapant   net share en mode de commande (--> dans exécuter, taper cmd, une fenêtre noire s'ouvre, une fenêtre dos en fait, là taper net share)
Normalement la liste des dossiers partagés et leur nom de partage est donnée.

Si c'est du VB6, le code de 2eme test est juste... Je l'ai testé.
(à noter que si le dossier existe déjà, la ligne de partage n'est pas exécuté)

cs_mguilhem · Answer

Pour partager un dossier, il est possible d'utiliser la commande "net share".
Le code serait:

Shell "net.exe share NomDePartage=c:\NomDossier", vbHide

En espérant t'être utile,

MOG

smr_tjrs · Answer

Merci d'abord pr ta r&#233;ponse, mais  je ne sais pas pr quoi ne marche pas.car premi&#232;rement je cr&#233;e un dossier et apr&#233;s je le partage. Bon voila le code que je fais:
If Dir$("C:\Mon dossier\Gestion des RDV\Projet\Base", vbDirectory) = vbNullString Then
    MkDir "C:\Mon dossier\Gestion des RDV\Projet\Base"
    Shell "net.exe share NomDePartage=C:\Mon dossier\Gestion des RDV\Projet\Base", vbHide
End If

Et merci d'avoir m'aider encore une fois

Scalpweb · Answer

A mon avis cela vient des espaces dans :
C:\Mon dossier\Gestion des RDV\Projet\Base

Essaye une commande du genre :
Shell "net.exe share NomDePartage=""C:\Mon dossier\Gestion des RDV\Projet\Base"""

Sinon essaye un nom de  dossier sans espaces...

@+, Scalpweb

nhervagault · Answer

Salut



Pour eviter de passer par la commande Shell



http://groups.google.fr/group/microsoft.public.vb.winapi/browse_thread/thread/c546a510cf08ab4d/9e5dc31004440bb0?q=shared+directory+VB+Netapi32&rnum=1&hl=fr#9e5dc31004440bb0



Avec l'api   Netapi32

Permet un parametrage plus fin. (j'ai pas  test&#233;)

cs_mguilhem · Answer

Il serait effectivement plus intéressant (plus pro) d'utiliser un api,
mais la commande shell est simple et rapide et peut dépanner.

L'erreur vient de la commande shell, il manque des guillemets:
Shell "net.exe share NomDePartage=""c:\NomDossier""", vbHide

Le code donnerait alors:

If Dir$("C:\Mon dossier\Gestion des RDV", vbDirectory) = vbNullString Then
    MkDir "C:\Mon dossier\Gestion des RDV"
    Shell "net.exe share NomDePartage=""C:\Mon dossier\Gestion des RDV""", vbHide


Pour départager la commande est:
shell "net.exe NomDePartage /delete"

Bon week-end,

MOG
End If

smr_tjrs · Answer

M&#234;me &#231;a j'ai pas encore trouv&#233; o&#249; devien l'erreur, voila le code de 2&#232;me test:
If Dir$("C:\Base", vbDirectory) = vbNullString Then
    MkDir "C:\Base"
    Shell "net.exe share NomDePartage=""C:\Base""", vbHide
End If

nhervagault · Answer

Salut tous le monde.

Ca fonctionne maintenant.

J'ai trouv&#233; d'ou venait l'erreur de [auteurdetail.aspx?ID=483717 smr_tjrs]

C'est le partage r&#233;seau n'&#233;tait pas actif sur sa machine.

Cf un nouveau poste dans le forum a 5-6 messages d'intervalle.



J'ai redonn&#233; ma solution avec les API ;-)



Maintenant  ce poste peut etre marqu&#233; r&#233;solu.



Bonne continuation a tous

smr_tjrs · Answer

Merci bcp tt les amis say&#233; j'ai r&#233;gl&#233; mon probl&#232;me gr&#226;ce a vous aides et comme  merci bcp et mille fois encore.
Bonne journ&#233;e.