[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim AllFiles As New List(Of String)
       Dim StartFolder As String = ""
       Dim fbd As New FolderBrowserDialog()
       If fbd.ShowDialog() = Windows.Forms.DialogResult.OK Then
           StartFolder = fbd.SelectedPath
       End If
       If IO.Directory.Exists(StartFolder) Then
           AllFiles.AddRange(My.Computer.FileSystem.GetFiles(StartFolder, FileIO.SearchOption.SearchAllSubDirectories))
           For Each fil As String In AllFiles
               If fil.EndsWith(".jpg") Or fil.EndsWith(".png") Then
                   ListBox1.Items.Add(fil)
               End If
           Next
       End If
   End Sub