[kslawy]

قم بتجاهل المجلد System Volume Information عند البحث عن الملفات

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        
Dim folders = New DirectoryInfo("D:\").GetDirectories

Dim files = New List(Of FileInfo)

For Each folder In From d In folders Where d.Name <> "System Volume Information"            

files.AddRange(folder.GetFiles("*.*", SearchOption.TopDirectoryOnly)) 

Next

Me.ListBox1.Items.AddRange(files.ToArray)

End Sub 


***
**
*