[أبو ناصر]

ما هو قصدك في ويندوز ؟

أخي اذا كان قصدك أن تبحث في جهازك جرب هذا الكود

كود :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Clear()
        Dim FBD As New FolderBrowserDialog
        If FBD.ShowDialog <> DialogResult.OK Then Return
        Dim source_path As String = FBD.SelectedPath
        Dim arrayFiles() As String = Directory.GetFiles(source_path, TextBox3.Text & ".*")
        For Each x In arrayFiles
            TextBox1.Text += x & Environment.NewLine
        Next
    End Sub

لا تنسى استدعاء المكتبة  Imports System.IO