Versione applicazione

'************************************************************
   ' versione dell'applicazione
   '************************************************************

If Dir(TypeConn.MyDirPath & "\INI\Versione.ini") = "" Then
                FileOpen(1, TypeConn.MyDirPath & "\INI\Versione.ini", OpenMode.Output)
                PrintLine(1, My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.MinorRevision) '   My.Application.Info.Version.Major & "." &  My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.MinorRevision)
                If Dir(TypeConn.MyDirPath & "\Amministrazione.exe") <> "" Then
                    PrintLine(1, FileLen(TypeConn.MyDirPath & "\Amministrazione.exe"))
                End If
                FileClose(1)
                Versione = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.MinorRevision
            ElseIf Dir(TypeConn.MyDirPath & "\INI\Versione.ini") <> "" Then
                If FileLen(TypeConn.MyDirPath & "\INI\Versione.ini") = 0 Then
                    FileOpen(1, TypeConn.MyDirPath & "\INI\Versione.ini", OpenMode.Output)
                    PrintLine(1, My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.MinorRevision)

If Dir(TypeConn.MyDirPath & "\Amministrazione.exe") <> "" Then
                        PrintLine(1, FileLen(TypeConn.MyDirPath & "\Amministrazione.exe"))
                    End If

FileClose(1)
                    Versione = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.MinorRevision
                Else
                    FileOpen(1, TypeConn.MyDirPath & "\INI\Versione.ini", OpenMode.Input)
                    Versione = LineInput(1)
                    FileClose(1)
                End If

End If

If Dir(TypeConn.MyDirPath & "\ExeAmministrazione\Amministrazione.exe") <> "" Then
                Me.Text = Me.Text & " * Build * " & Mid(FileDateTime(TypeConn.MyDirPath & "\ExeAmministrazione\Amministrazione.exe"), 1, 10) & " * Versione " & My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.MinorRevision
            Else
                Me.Text = Me.Text & " * Build * " & My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.MinorRevision
            End If

'************************************************************

' versione dell'applicazione

'************************************************************

If Dir(TypeConn.MyDirPath & "\INI\Versione.ini") = "" Then
FileOpen(1, TypeConn.MyDirPath & "\INI\Versione.ini", OpenMode.Output)
PrintLine(1, My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.MinorRevision) ' My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.MinorRevision)
If Dir(TypeConn.MyDirPath & "\Amministrazione.exe") <> "" Then
PrintLine(1, FileLen(TypeConn.MyDirPath & "\Amministrazione.exe"))
End If
FileClose(1)
Versione = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.MinorRevision
ElseIf Dir(TypeConn.MyDirPath & "\INI\Versione.ini") <> "" Then
If FileLen(TypeConn.MyDirPath & "\INI\Versione.ini") = 0 Then
FileOpen(1, TypeConn.MyDirPath & "\INI\Versione.ini", OpenMode.Output)
PrintLine(1, My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.MinorRevision)

If Dir(TypeConn.MyDirPath & "\Amministrazione.exe") <> "" Then
PrintLine(1, FileLen(TypeConn.MyDirPath & "\Amministrazione.exe"))
End If

FileClose(1)
Versione = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.MinorRevision
Else
FileOpen(1, TypeConn.MyDirPath & "\INI\Versione.ini", OpenMode.Input)
Versione = LineInput(1)
FileClose(1)
End If

End If

If Dir(TypeConn.MyDirPath & "\ExeAmministrazione\Amministrazione.exe") <> "" Then
Me.Text = Me.Text & " * Build * " & Mid(FileDateTime(TypeConn.MyDirPath & "\ExeAmministrazione\Amministrazione.exe"), 1, 10) & " * Versione " & My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.MinorRevision
Else
Me.Text = Me.Text & " * Build * " & My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.MinorRevision
End If