[ابو جمال]

(09-05-22, 09:06 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم

كود :

   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

للاسف لم يعمل معي يقفل البرنامج لوحده عند اختيار قرص كامل