[سعود الشامان]

أعتذر منك اخي فهمتك خطأ

قم بعمل مشروع جديد :-

وضيف فيه :
OpenFileDialog1
Button1
Label1
Label2
Label3
Label4
Label5
Label6
Label7


والصق هذا الكود في حدث الضغط على الزر Button1

كود :

       OpenFileDialog1.Filter = "EXE files (*.exe)|*.exe"
       OpenFileDialog1.FileName = ""
       If OpenFileDialog1.ShowDialog = vbOK Then

           Dim myFileVersionInfo As FileVersionInfo = FileVersionInfo.GetVersionInfo(OpenFileDialog1.FileName)

           If myFileVersionInfo.FileDescription <> "" Then
               Label1.Text = myFileVersionInfo.FileDescription
               Label2.Text = myFileVersionInfo.CompanyName
               Label3.Text = myFileVersionInfo.Language
               Label4.Text = myFileVersionInfo.FileVersion
               Label5.Text = myFileVersionInfo.LegalCopyright
               Label6.Text = myFileVersionInfo.LegalTrademarks
               Label7.Text = myFileVersionInfo.OriginalFilename
           End If

       End If

---

المشروع بالمرفقات


                Label1.Text = myFileVersionInfo.FileDescription  ' اسم الملف
                Label2.Text = myFileVersionInfo.CompanyName ' اسم الشركة
                Label3.Text = myFileVersionInfo.Language ' لغة الملف
                Label4.Text = myFileVersionInfo.FileVersion ' اصدار الملف
                Label5.Text = myFileVersionInfo.LegalCopyright
                Label6.Text = myFileVersionInfo.LegalTrademarks
                Label7.Text = myFileVersionInfo.OriginalFilename ' اسم الملف الاصلي

بعد الدوت تظهر كل الخيارات الخاصة بعلومات عن الملف