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:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 MessageBox.Show("Erreur : Droits insuffisants ou chemin introuvable")
Pourriez vous m'aider sur ce sujet ? Merci