| |
Averiguar version de nuestro programa
Como obtener la version (mayor,menor,build y
private) de nuestra aplicacion en VB .NET.
Module Module1
' El ejecutable del que queremos obtener la información
Private mLocation As String
'
Sub Main()
' Mostrar información del ejecutable actual
mLocation = System.Reflection.Assembly.GetExecutingAssembly.Location
'
mostrarInfo()
'
Console.WriteLine()
Console.WriteLine("Pulsa INTRO para terminar.")
Console.ReadLine()
End Sub
'
Private Sub mostrarInfo()
Console.WriteLine("Información sobre la versión de: {0}", EXEName)
Console.WriteLine("Versión: {0}", FileVersion)
Console.WriteLine()
Console.WriteLine("Mayor : {0,5}", FileMajorPart)
Console.WriteLine("Menor : {0,5}", FileMinorPart)
Console.WriteLine("Build : {0,5}", FileBuildPart)
Console.WriteLine("Private: {0,5}", FilePrivatePart)
End Sub
'
'
Private ReadOnly Property FileMajorPart() As Int32
Get
Return System.Diagnostics.FileVersionInfo.GetVersionInfo(mLocation).FileMajorPart
End Get
End Property
Private ReadOnly Property FileMinorPart() As Int32
Get
Return System.Diagnostics.FileVersionInfo.GetVersionInfo(mLocation).FileMinorPart
End Get
End Property
Private ReadOnly Property FileBuildPart() As Int32
Get
Return System.Diagnostics.FileVersionInfo.GetVersionInfo(mLocation).FileBuildPart
End Get
End Property
Private ReadOnly Property FilePrivatePart() As Int32
Get
Return System.Diagnostics.FileVersionInfo.GetVersionInfo(mLocation).FilePrivatePart
End Get
End Property
'
Private ReadOnly Property FileVersion() As String
Get
Return System.Diagnostics.FileVersionInfo.GetVersionInfo(mLocation).FileVersion
End Get
End Property
'
Private ReadOnly Property EXEName() As String
Get
Return System.IO.Path.GetFileName(mLocation)
End Get
End Property
'
End Module
autor: AMC
email o web: webmaster@tecnocodigo.com
Fecha articulo: 22/05/2009
|
|
