[asemshahen5]

تفضل أرجو ان يكون هذا الحل المناسب :

PHP كود :

   Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        If MsgBox("هل تريد اختيار مجلد", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            Dim fld As New FolderBrowserDialog
            If fld.ShowDialog = Windows.Forms.DialogResult.OK Then
                MsgBox(fld.SelectedPath)
            End If
        Else
            Dim opd As New OpenFileDialog
            opd.Filter = "كل الملفات |*.*"
            If opd.ShowDialog = Windows.Forms.DialogResult.OK Then
                MsgBox(opd.FileName)
            End If
        End If
    End Sub