UYGULAMALARIN VERSİONUNU BULMA KODU

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim openDLG As New OpenFileDialog openDLG.Filter = "Uygulama (*.exe)|*.exe" If openDLG.ShowDialog = DialogResult.OK Then Dim versionInfo As FileVersionInfo = System.Diagnostics.FileVersionInfo.GetVersionInfo(openDLG.FileName) Debug.Print(versionInfo.FileVersion) Label1.Text = (openDLG.FileName & " version-" & versionInfo.FileVersion) Label2.Text = System.IO.Path.GetFileName(openDLG.FileNames(0)) End If Catch exc As Exception MessageBox.Show(exc.Message, " Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub End Class