blob: ebfe7f2fb3caeec920b02474dca034abff285c7d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
Imports System.IO
Public Class Form1
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)
End If
lbl_BuildString.Text = ActualBuildLab
Catch ex As Exception
MsgBox("Why? Because of " & ex.Message)
End Try
End Sub
Private Sub btn_Exit_Click(sender As Object, e As EventArgs) Handles btn_Exit.Click
Close()
End Sub
End Class
|
