[وائل القطاوي]

تفضل اخي
افتح مشروع جديد وضع فيه واحد تكست بكس و عدد (2) زر واحذف جميع الاكواد وضع هذا الكود

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim open_file As New OpenFileDialog
open_file.ShowDialog()
TextBox1.Text = open_file.FileName

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox(TextBox1.Text & "مسار الملف")
End Sub
End Class