[asemshahen5]

PHP كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim dd As New FolderBrowserDialog
        'تحديد المسار المطلوب'
        dd.SelectedPath = "c:\"
'        'تحديد الجذر الخاص بالاداة'
        dd.RootFolder = Environment.SpecialFolder.MyComputer
        If dd.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = dd.SelectedPath
        End If
    End Sub