[aftfm]

تم كتابة هذا الكود 
لكنه بعض البرامج لا يظهر اسمها ومسارها تظهر لي ارقام بدل  اسم الملف

 

كود :

Dim OpenFileDialog1 As New OpenFileDialog
        OpenFileDialog1.Title = "open file"
        OpenFileDialog1.Multiselect = False
        OpenFileDialog1.Filter = "All Files|*.*"
        OpenFileDialog1.ShowDialog()
        Me.lblBrowse.Text = OpenFileDialog1.FileName