Discussion :

[programmes]

Bonjour à tous,
Je suis sous visual basic 2010 et je souhaiterais développer en vb.net une function qui me permetterais de lister toutes les images d'un répertoire.

Je sais qu'on recherche les fichiers avec Directory.GetFiles(dir,"*.*") mais comment peut-on mettre plusieurs extention à la place de *.*?

Merci à vous de bien vouloir me venir en aide et bonne soirée!

[shayw]

Salut

je ne pense pas que l'on peut
peut etre ainsi

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
19
Private Sub SearchFiles(ByVal D As String, ByVal extensions As List(Of String))
        'donne la liste de tous les fichiers avec les extensions parametrés par extension 
        ' se trouvant dans le dossier D et tous ses sous dossiers 
        Try
            For Each file As String In Directory.GetFiles(D)
                Dim info As New FileInfo(file)
                If extensions.BinarySearch(info.Extension) >= 0 Then
                    list1.Items.Add(file)
                End If
 
            Next
            For Each SUBDIR As String In Directory.GetDirectories(D)
                SearchFiles(SUBDIR, extensions)
            Next
        Catch ex As Exception
            'MessageBox.Show(ex.Message)
        End Try
 
    End Sub

Code :

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

1
2
3
4
5
6
 Dim extensions As New List(Of String)
        extensions.Add(".vb")
        extensions.Add(".txt")
        extensions.Add(".suo")
        extensions.Sort()
        SearchFiles("E:\", extensions)

[CLeBeR]

Salut,
Je vais te donner le code pour lister les images de tous les répertoires.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub ChercherFichiers(dossier As IO.DirectoryInfo, Extensions() As String)
        Try
            'pour chaque extension...
            For Each ext As String In Extensions
                '...on fait une liste des fichiers concernés...
                Dim f() As IO.FileInfo = dossier.GetFiles("*." & ext)
                '...et on ajoute les fichiers à la listbox
                For Each Fichier As IO.FileInfo In f
                    ListboxFichiersTrouvés.Items.Add(Fichier.FullName)
                Next
            Next
            'recherche des sous-dossiers...
            For Each d As IO.DirectoryInfo In dossier.GetDirectories
                'et recherche récursive des fichiers
                ChercherFichiers(d, Extensions)
            Next
        Catch ex As Exception
        End Try
    End Sub
 
    Private Sub RécupérerFichiersImages()
        'recherche dans tous les disques
        For Each drive As IO.DriveInfo In IO.DriveInfo.GetDrives
            If drive.IsReady Then
                'ici je recherche les jpg, gif ...
                ChercherFichiers(New IO.DirectoryInfo(drive.RootDirectory.ToString), {"JPG", "GIF", "BMP", "DXF", "EPS", "PCX", "PICT", "PS", "TIFF", "WPG", "PNG", "MNG"})
            End If
        Next
    End Sub
 
    Private Sub BouttonCopierFichiers_Click(sender As Object, e As EventArgs) Handles BouttonCopierFichiers.Click
            Call RécupérerFichiersImages()
    End Sub

[programmes]

Merci beaucoup à vous c'est nickel!

[CLeBeR]

Salut,
N'oublie pas de cliquer sur et merci de mettre un petit pouce vert à ceux qui t'ont aidés