File encryption center - Setup.vb

File encryption center - Setup.vb

File encryption center - Setup.vb

Setup.vb

1. Public Class Setup
2.     Dim MyName As String = My.Application.Info.AssemblyName
3.     Dim MyDir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\" & MyName
4.     Dim SetupStatus As Integer = 0
5.     'Dim RMenuText As String = "۞ تشفير / فك تشفير"
6.     Dim RMenuText As String = MyName
7.     Dim SetupUIState As Integer = 0
8.     Private Sub Setup_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
9.         On Error Resume Next
10.         Me.Text = MyName & " - تثبيت"
11.         Me.MaximizeBox = False
12.         InfoLBL.Text = "تثبيت : " & MyName
13.         StatusLBL.Text = "مرحباً بك في تثبيت " & MyName & System.Environment.NewLine & "إضغط التالي للإنتقال للصفحة التالية ."
14.         BrevBTN.Enabled = False
15.         SetupStatus = 1
16.     End Sub
17.     Public Sub SetupProgram()
18.         On Error Resume Next
19.         My.Computer.FileSystem.CreateDirectory(MyDir)
20.         My.Computer.FileSystem.CopyFile(System.Environment.CurrentDirectory & "\" & MyName & ".exe", MyDir & "\" & MyName & ".exe", False)