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___)
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.