Mapper un disque réseau

Commenter

Contenu du snippet

Ce code permet de mapper un disque réseau, on peut également indiquer le nom d'utilisateur et son mot de passe pour la connection au disque !
Déroulement du code :
- vérification de l'existence d'un disque à la lettre spécifié
- si il n'existe pas mappe le disque à cette lettre
- si il existe deconnection du disque et connection du nouveau

J'utilise ce code dans mes traitements qui ont besoin de récupérer ou déposer des fichiers sur des disques réseaux.
Je mappe les disques à partir du code car en les mappant "manuellement" dans l'explorateur il arrivait souvent au bout d'un certains que les disques "sautent", ainsi je remappe les disques de manières automatique à chaque utilisation de mes traitements !

Je trouve cette manière plus pratique qu'utiliser le net use, de plus la remontée d'erreur est vraiment performante, je sais quand :
- le compte utilisateur est bloqué
- le disque est mappé sur une autre lettre
- le chemin réseau est introuvable, etc...

Source / Exemple : 


Function MapDisk(ByVal DriveMap As Object, ByVal Path As Object)
        'Déclaration des objets
        Dim objNet, objFSO As Object

        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

Conclusion :


N'hésitez pas de laisser vos commentaires !
Tout code est perfectible !!!!

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_scoubigee)