Rechercher un fichier dans plusieurs dossiers

**AcideBlood** · 13/12/2014, 15h48

Bonjour

j'ai un problème lors d'un recherche de fichier via mon textbox.
je souhaite trouver mon image ( le nom de l'image est entré par l'utilisateur dans TextBox1) dans 2 dossier différent mais je ne suis arriver a rien.

voici mon code actuel.

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
        If PictureBox1.ImageLocation = "./Images/" + TextBox1.Text + ".jpg" Then
            PictureBox1.ImageLocation = "C:\Analyse\image\" + TextBox1.Text + ".jpg"
        End If
 
    End Sub

seriez-vous m'aider , Cordialement

**ACIVE_CS** · 13/12/2014, 17h52

Bonjour,
J'ai pas bien compris le changement de chemin du fichier mais ça devrait te permettre de mieux comprendre:

Code :

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

1
2
3
4
5
6
7
8
  Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        For Each NomFich As String In System.IO.Directory.GetFiles("c:\users\" & Environment.UserName & "\desktop\") ' (Chemin du bureau actuel)
            If NomFich.ToLower.Contains(TextBox1.Text.ToLower & ".jpg") Then
                PictureBox1.Image = Image.FromFile(NomFich)
                Exit For
            End If
        Next
    End Sub

**AcideBlood** · 14/12/2014, 18h37

bonsoir

merci pour votre réponse. j'ai tester votre code mais celui la ne fonctionne pas pour ce que je souhaite faire.
du coup j'ai changer de façons de procéder.
je souhaite faire juste une recherche de fichier dans "C:\Analyse\image\". mais je n'est aucune image afficher dans ma picturebox pour le moment, toujours en cours de recherche.

voici mon code :

Code :

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

1
2
3
4
5
6
7
 
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
        Dim dirPath As String = "C:\Analyse\image\"
        PictureBox1.ImageLocation = dirPath + TextBox1.Text + ".jpg"
 
    End Sub

Merci

**ACIVE_CS** · 14/12/2014, 18h46

Re:

Hé bien... dans le code que j'ai mis, il faut juste remplacer
"c:\users\" & Environment.UserName & "\desktop\" par "C:\Analyse\image\"

Je ne vois pas où est le problème...

Ou si tu préfères, un peu plus à ta façon:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim dirPath As String = "C:\Analyse\image\"
        For Each NomFich As String In System.IO.Directory.GetFiles(dirPath)
            If NomFich.ToLower.Contains(TextBox1.Text.ToLower & ".jpg") Then
                PictureBox1.ImageLocation = NomFich
                Exit For
            End If
        Next
    End Sub

**AcideBlood** · 14/12/2014, 18h56

javais déjà fais le test mais cela ne marche pas

, aucune image charger dans la picturebox et pas de message d'erreur.

Ps : idém pour ton deuxième code.

**AcideBlood** · 14/12/2014, 19h10

OK cela fonctionne. une bonne erreur de débutant

pour un chemin dans mon programme ( "./Images/") mon code étais comme ceci :
PictureBox1.ImageLocation = "./Images/" + TextBox1.Text + ".jpg"

mais mon chemin pour un répertoire dite absolue (il me semble) ( "c:\Analyse\image\") le code doit être comme ceci :
PictureBox1.ImageLocation = "c:\Analyse\image\" + TextBox1.Text + ".jpeg"

Merci encore pour ton aide.

Ps : je revient quand même sur mon premier post ou je chercher en faite a faire une recherche de fichier dans plusieurs dossier d’out le fait d'avoir entrer 2 chemin différent.

**ACIVE_CS** · 14/12/2014, 19h10

Pourquoi ça marche chez moi alors???
essaie:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim dirPath As String = "C:\Analyse\image\"
        For Each NomFich As String In System.IO.Directory.GetFiles(dirPath)
            If NomFich.ToLower.Contains(TextBox1.Text.ToLower & ".jpg") Then
                PictureBox1.ImageLocation = NomFich
                Exit Sub
            End If
        Next
        MessageBox.Show(TextBox1.Text & ".jpg Introuvable vérifiez bien que le fichier existe")
    End Sub

as-tu un message?

**AcideBlood** · 14/12/2014, 19h13

oui ton code marche , mais il faut changé "jpg" en "jpeg"

je vais quand même utiliser ton code, je pense qu'il est quand même meilleure que le mien

.

Merci

**ACIVE_CS** · 14/12/2014, 19h21

As-tu compris pourquoi j'ai mis les 'ToLower' dans mon code?

J'aurais fait comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim FichImage As String = "C:\Analyse\image\" & TextBox1.Text & ".jpeg"
        If System.IO.File.Exists(FichImage) Then
            PictureBox1.Image = Image.FromFile(FichImage)
        Else
            MessageBox.Show(FichImage & " Introuvable vérifiez bien que le fichier existe")
        End If
    End Sub