Mapper lecteur réseau en VB

Question

Bonjour ! Je débute en programmation. j'apprend actuellement en VB 2005. Je suis en alternance et ma boîte ma demandé de programmer un petit logiciel permettant de mapper des lecteur réseaux. je n'arrive pas à me servire de variable avec la comamnde net use. J'ai chercher d'autre moyens comme ce code que j'ai trouver sur ce site :

Function MapDisk(ByVal DriveMap AsObject, ByVal Path AsObject)
'Déclaration des objets
Dim objNet, objFSO AsObject
Try
'Instanciation des objets
'objFSO = CreateObject("Scripting.FileSystemObject")
objNet = CreateObject("Wscript.Network")
'Vérifie si le lecteur ("H:" par exemple) existe
If Not objFSO.DriveExists(DriveMap) Then
'il n'existe pas on le mappe
objNet.MapNetworkDrive(DriveMap, Path, "true", "user", "password")
'objNet.MapNetworkDrive(lettre,chemin de type "\10.0.2.44\Partage",reconnection au démarrage du pc,utilisateur,mot de passe)
'Il n'est pas obligatoire d'indiquer l'utilisateur et le mot de passe selon les droits du disque à monter
Else
'il existe alors on le démappe et on le remappe (si c'est le même lecteur permet de réactiver le disque)
objNet.RemoveNetworkDrive(DriveMap, True)
objNet.MapNetworkDrive(DriveMap, Path, "true", "user", "password")
End If
Catch err As System.Exception
'Capture de l'erreur éventuelle
MsgBox("Map->" + DriveMap + Path + " || " + err.ToString)
End Try
End Function

Mais je n'arrive pas à l'integrer dans le code d'un bouton ( Si c'est comme cela qu'on doit faire) En gros je n'arrive pas à me servire de cette fonction. Je serais donc reconnaissant à celui/celle ou ceux qui m'aidront. Merci d'avance.

cs_Willi · Answer

Bonsoir,
Ce code est bon à être employer avec vb6. Je te conseil pluoto d'utiliser les API. Malgrès tout tu peux t'aider de cette souce qui se base sur la même méthode.

http://www.vbfrance.com/codes/MAPPER-DISQUE-RESEAU_40622.aspx

++

tomsw93 · Answer

Merci willi j'ai aussi essayé ce code mais je n'arrive pas à l'integrer dans une Form. 
Comment faire ?

cs_Willi · Answer

Bonsoir,
Tu copies le code de la source. Et pour l'utiliser dans ton button

Private sub TonButton_Click(.....)

   MapDisk("Z:",[file://\TonPc01\TonDossierAMonter \TonPc01\TonDossierAMonter])

End sub

++

Mapper lecteur réseau en VB

3 réponses

Votre réponse

Discussions similaires