Custom Installer - VB #4 ~ VBTheory™ Tutorials

Monday, January 30, 2012

Custom Installer - VB #4


Code:
Button1 Click:

FolderBrowserDialog1.ShowDialog()
TextBox1.Text = FolderBrowserDialog1.SelectedPath + "\"

Button2 Click:
If Button2.Text = "Install" Then
  Button1.Enabled = False
  Button2.Enabled = False
  My.Computer.FileSystem.WriteAllBytes(TextBox1.Text + "Calculator.exe", My.Resources.Calculator, False)
  My.Computer.FileSystem.WriteAllBytes(TextBox1.Text + "Readme.pdf", My.Resources.Readme, False)
  Button2.Enabled = True
  Button2.Text = "Exit"
  Exit Sub
End If
If Button2.Text = "Exit" Then
  If CheckBox1.Checked = True Then
    System.Diagnostics.Process.Start(TextBox1.Text + "Calculator.exe")
  End If
  If CheckBox2.Checked = True Then
    System.Diagnostics.Process.Start(TextBox1.Text + "Readme.pdf")
  End If
  End
End If



Share