diff options
| author | EverythingWindows <[email protected]> | 2022-11-02 08:52:31 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-02 08:52:31 +0700 |
| commit | e6f8b7c77bd3163cb84a077a54a4448b41fa63ce (patch) | |
| tree | 2919b03cb0a4521c106c4317af11a4a0da688704 /ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb | |
| parent | cbc32f3aba8114e1bf2bc2d1db75a7056e5e575a (diff) | |
| download | shiftos-therevival-old-e6f8b7c77bd3163cb84a077a54a4448b41fa63ce.tar.gz shiftos-therevival-old-e6f8b7c77bd3163cb84a077a54a4448b41fa63ce.tar.bz2 shiftos-therevival-old-e6f8b7c77bd3163cb84a077a54a4448b41fa63ce.zip | |
0.1.1 code
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb index eba98ed..5e6d171 100644 --- a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb +++ b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb @@ -1,24 +1,27 @@ Imports System.IO -Public Class Form1 +Public Class ShiftOSMenu Public Shared ActualBuildLab As String Public Shared BuildLab() As String Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Try - BuildLab = File.ReadAllLines("D:\ShiftOSBuildLab.txt") - If BuildLab(0) = "No" Then - Dim BuildNum As Integer = BuildLab(1) - BuildNum = BuildLab(1) + 1 - ActualBuildLab = "ShiftOS_TheRevival." & BuildLab(3) & "." & BuildNum & "." & Date.Today.Year & Date.Today.Month & Date.Today.Day - BuildLab(1) = BuildNum - File.WriteAllLines("D:\ShiftOSBuildLab.txt", BuildLab) + If File.Exists("D:\ShiftOSBuildLab.txt") Then + BuildLab = File.ReadAllLines("D:\ShiftOSBuildLab.txt") + If BuildLab(0) = "No" Then + Dim BuildNum As Integer = BuildLab(1) + BuildNum = BuildLab(1) + 1 + ActualBuildLab = "ShiftOS_TheRevival." & BuildLab(3) & "." & BuildNum & "." & Date.Today.Year & Date.Today.Month & Date.Today.Day + BuildLab(1) = BuildNum + File.WriteAllLines("D:\ShiftOSBuildLab.txt", BuildLab) + End If + lbl_BuildString.Text = ActualBuildLab + Else + End If - lbl_BuildString.Text = ActualBuildLab Catch ex As Exception MsgBox("Why? Because of " & ex.Message) - lbl_BuildString.Text = ActualBuildLab End Try End Sub |