VB.NET : Connecter/Déconnecter un lecteur réseau [Fermé]

Signaler
Messages postés
5
Date d'inscription
jeudi 22 octobre 2015
Statut
Membre
Dernière intervention
19 juillet 2016
-
Bonjour,

Je me suis lancé dans le VB.NET il y a peu et souhaiterais avoir votre aide.

Je souhaiterais, lors d'un clic sur un bouton, que le chemin indiqué dans TextBox3 se connecte en O:, si le lecteur existe déjà, il doit le déconnecter au préalable avant de mapper le nouveau chemin.
Pour le moment le code suivant est fonctionnel:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Si le lecteur O: existe
If CreateObject("Scripting.FileSystemObject").DriveExists("O:") Then

'Le déconnecter
Shell("net use O: /DELETE", AppWinStyle.Hide, False)

'Attendre 1sec sinon le nouveau chemin ne remonte pas
System.Threading.Thread.Sleep(1000)

'Mapper le nouveau lecteur O:
Shell("net use O: " & TextBox3.Text, AppWinStyle.Hide, False)

Else

'Sinon mapper le lecteur O:
Shell("net use O: " & TextBox3.Text, AppWinStyle.Hide, False)
End If

End Sub


Cependant je bloque, sur le message d'erreur au cas où cela ne fonctionnerais pas...

Je souhaiterais qu'une vérification soit effectuée afin de voir si le lecteur s'est bien connecté, si ce n'est pas le cas, qu'il y ait un message qui s'ouvre genre
 MessageBox.Show("Erreur : Droits insuffisants ou chemin introuvable") 


Pourriez vous m'aider sur ça ? Merci