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:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If CreateObject("Scripting.FileSystemObject").DriveExists("O:") Then
Shell("net use O: /DELETE", AppWinStyle.Hide, False)
'Attendre 1sec sinon le nouveau chemin ne remonte pas'
System.Threading.Thread.Sleep(1000)
Shell("net use O: " & TextBox3.Text, AppWinStyle.Hide, False)
Else
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 ce sujet ? Merci
Partager