Mapper un lecteur réseau (connexion et déconnexion)

Commenter

Contenu du snippet

En cherchant à mapper des lecteurs Réseaux sur mon serveur jai utilisé la bonne vieille commande Net USE. Donc je vous mets les 2 fonctions que jai développé dans ce cadre.

Source / Exemple : 


Public Function attendre(intervalle As String, indice As Integer) As Integer
    Valeur = Time
    tmp = DateAdd(intervalle, indice, Valeur)
    Do While Time < tmp
   
    Loop
End Function

Private Function connectServ(serv As string, Share AS string, Lettre AS string, Pass AS string, usr AS string )
    Dim LigneCommande  As String, val, retour As Integer
 
   LigneCommande = "NET USE " & serv & ": \\" & Share & "\" & Lettre & " " & Pass & " /USER:" & usr & " /PERSISTENT:NO"
    retour = Shell(LigneCommande, vbNormalFocus)
    val = attendre("s", 5)
End Function

Private Function DisconnectServ(Lettre AS string)
    Dim LigneCommande As String, val, retour As Integer
    LigneCommande = "NET USE " & Lettre & ": /DELETE"
    retour = Shell(LigneCommande, vbNormalFocus)
    val = attendre("s", 5)
End Function

Conclusion :


C'est un petit truc en cas de besoin

Romelard Fabrice (Alias F___)

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_fabrice69)