Discussion :

[Lechette]

Bonjour à tous!!

Je voudrais faire en sorte que lors du choix d'un dossier racine, il y ai vérification de la présence d'un exe, et affichage d'un message informant l'utilisateur.J'ai fait ceci qui ne fonctionne pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
        Dim iconexe As String
        iconexe = "il2fb.exe"
        If My.Settings.Diruser.FileExists("il2fb.exe") Then'cest dans cette ligne qu'il y a erreur
            Label2.Text = "Répertoire correct"
        Else
            Label2.Text = "Attention répertoire incorrect"
        End If
 
    End Sub

Le diruser, c'est parceque plus haut j'ai ceci:

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
Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
 
        'Lance la fenetre de sélection de dossier racine
        FolderBrowserDialog1.Description = "Indiquez le dossier racine d'IL2"
        If FolderBrowserDialog1.ShowDialog(Me) = DialogResult.OK Then
            MessageBox.Show(Me, _
                        "Vous avez choisi " + FolderBrowserDialog1.SelectedPath, _
                        "Repertoire", _
                        MessageBoxButtons.OK, _
                        MessageBoxIcon.Information)
        End If
        My.Settings.Diruser = FolderBrowserDialog1.SelectedPath
        My.Settings.Save()
        Dossier_racine.Text = My.Settings.Diruser
    End Sub

Pourriez vous m'aider?Merci d'avance!!!!

[charaf]

Salam,
Tu peux utiliser directement la classe IO.File. Si le Diruser retourne le dossier racine, tu peux faire comme suite:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 
If IO.File.FileExiste(My.Settings.Diruser & "\il2fb.exe") then
'Ficher existe
else
'Fichier introuvable
End if

Tu dois être sure que le Diruser est un chemin valide sinon c'est toujours FALSE.

[Lechette]

Bon j'ai essayé avec ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim iconexe As String
        iconexe = "il2fb.exe"
        If IO.File.Exists(My.Settings.Diruser & "\il2fb.exe") Then
            Label2.Text = "Répertoire correct"
        Else
            Label2.Text = "Attention répertoire incorrect"
        End If

Ca fonctionne!! merci charaf!!!!