[المنذر]

(29-09-19, 09:20 PM)asemshahen5 كتب :

PHP كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim fld As New FolderBrowserDialog
        Dim opd As New OpenFileDialog
        opd.Filter = "Notepad .txt|*.txt"
        If fld.ShowDialog = Windows.Forms.DialogResult.OK Then
            opd.InitialDirectory = fld.SelectedPath
            If opd.ShowDialog = Windows.Forms.DialogResult.OK Then
                MsgBox(opd.FileName)
            End If
        End If
    End Sub 


اخي الكريم شكرا لك جربت هذا الكود ومن خلاله عم يعرض فقط المجلدات اما الملفات فهي غير ضاهرة