xeeel
Messages postés25Date d'inscriptionmardi 3 avril 2007StatutMembreDernière intervention 6 mars 2009
-
4 oct. 2007 à 12:11
lolokun
Messages postés1241Date d'inscriptionmardi 10 octobre 2006StatutMembreDernière intervention27 août 2013
-
4 oct. 2007 à 13:27
<ol>
<li>Bonjour,
Je souhaite créer un bouton pour mapper un lecteur réseau en VB, je souhaite utiliser une fonction mais je ne sais pas si je dois l'ecrire dans le bouton entre le private sub et le end sub. je ne sais pas comment ca marche la fonction est celle-ci:
Function MapDisk(ByVal DriveMap AsObject, ByVal Path AsObject) </li>
<li>
'Déclaration des objets
</li>
<li>
Dim objNet, objFSO AsObject</li>
<li>
</li>
<li>
Try
</li>
<li>
'Instanciation des objets
</li>
<li>
'objFSO = CreateObject("Scripting.FileSystemObject")
</li>
<li>objNet = CreateObject("Wscript.Network")
</li>
<li>
'Vérifie si le lecteur ("H:" par exemple) existe
</li>
<li>
If
Not objFSO.DriveExists(DriveMap) Then</li>
<li>
'il n'existe pas on le mappe
</li>
<li>objNet.MapNetworkDrive(DriveMap, Path, "true", "user", "password")
</li>
<li>
'objNet.MapNetworkDrive(lettre,chemin de type "\\10.0.2.44\Partage",reconnection au démarrage du pc,utilisateur,mot de passe)
</li>
<li>
'Il n'est pas obligatoire d'indiquer l'utilisateur et le mot de passe selon les droits du disque à monter
</li>
<li>
Else
</li>
<li>
'il existe alors on le démappe et on le remappe (si c'est le même lecteur permet de réactiver le disque)
</li>
<li>objNet.RemoveNetworkDrive(DriveMap, True)
</li>
<li>objNet.MapNetworkDrive(DriveMap, Path, "true", "user", "password")
</li>
<li>
End
If
</li>
<li>
Catch err As System.Exception
</li>
<li>
'Capture de l'erreur éventuelle
</li>
<li>MsgBox("Map->" + DriveMap + Path + " || " + err.ToString)
</li>
<li>
End
Try
</li>
<li>
End
Function
</li>
</ol>Je l'ai copié sur ce site, ou-dois l'ecrire pour que ca marche?
lolokun
Messages postés1241Date d'inscriptionmardi 10 octobre 2006StatutMembreDernière intervention27 août 20137 4 oct. 2007 à 13:27
Bonjour,
Oui tu peux la mettre dans un module ou bien directement dans le code de ta form..
Ensuite dans l'évènement click de ton bouton, tu appelles cette fonction avec les paramètres que tu veux.
MapDisk("Drive_à_mapper","Path")