[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 = "كل الملفات |*.*"
        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 


أو وضح أكثر .