[أبو نوره]

مرحبا اخى

لمعرفه ايقونه البرنامج استخدم الداله ExtractAssociatedIcon
ولمعرفه معلومات الملف من اسم واصدار استخدم FileVersionInfo ولكن بعض الملفات لا تتضمن معلومات

PHP كود :

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

    Dim myicon As Icon = Icon.ExtractAssociatedIcon(OpenFileDialog1.FileName)
    PictureBox1.Image = myicon.ToBitmap

    Dim myFileVersionInfo As FileVersionInfo = FileVersionInfo.GetVersionInfo(OpenFileDialog1.FileName)
    If myFileVersionInfo.FileDescription <> "" Then
        Label1.Text = myFileVersionInfo.FileDescription
    Else
        Label1.Text = IO.Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName)
    End If

End If