version programa

Dim nombre_programa As String = "wsconfig"
        Dim version As String = "versión 0.63"
        Dim anio As String = ""

        Dim anio_creacion As Integer = 2019
        If anio_creacion = Now.Year Then
            anio = anio_creacion
        Else
            anio = anio_creacion & "-" & Now.Year
        End If

        ' Fecha de compilación


        Dim filepath As String = Assembly.GetExecutingAssembly().Location
        Dim dt As DateTime = New FileInfo(filepath).LastWriteTime
        'MessageBox.Show(dt.ToString("dddd", New CultureInfo("es-ES")) & " " & dt.ToString("dd-MM-yyyy HH:mm:ss"))
        ' https://docs.microsoft.com/en-us/dotnet/standard/base-types/how-to-extract-the-day-of-the-week-from-a-specific-date

        My.MySettings.Default.timesrun = My.MySettings.Default.timesrun + 1
        My.MySettings.Default.Save()


        'My.Settings.nexe = 5
        'My.Settings.Save()

        MessageBox.Show(My.Settings.timesrun)


        MessageBox.Show(nombre_programa & Environment.NewLine &
                        version & " (" & dt.ToString("dddd", New CultureInfo("es-ES")) & " " & dt.ToString("dd-MM-yyyy HH:mm:ss") & ")" & Environment.NewLine &
                        anio, "", MessageBoxButtons.OK, MessageBoxIcon.None)