Imports System.IO Public Class FileScannerSettings Public Drives1 As String Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked = True Then TextBox1.ReadOnly = True If CheckBox1.Checked = False Then TextBox1.ReadOnly = False If CheckBox1.Checked = False Then If My.Settings.Eng = False Then MsgBox("Bitte geben Sie die Laufwerksbuchstaben getrennt mit Leerzeichen ein. Nicht vorhandene Laufwerksbuchstaben werden automatisch übersprungen.") If My.Settings.Eng = True Then MsgBox("Please enter the drive letters separated by spaces. Drive letters that do not exist are automatically skipped.") End If End Sub Private Sub FileScannerSettings_Load(sender As Object, e As EventArgs) Handles Me.Load CheckBox1.Checked = True TextBox1.Text = My.Settings.EFSDrives TextBox2.Text = My.Settings.CopyFolder CheckBox2.Checked = My.Settings.EFS2 CheckBox3.Checked = My.Settings.EFS3 CheckBox4.Checked = My.Settings.EFS4 CheckBox5.Checked = My.Settings.EFS5 CheckBox6.Checked = My.Settings.EFS6 CheckBox7.Checked = My.Settings.EFS7 If TextBox1.TextLength = 0 Then TextBox1.Text = "C D E F G H I J K L M N O P Q R S T U V W X Y Z" If TextBox2.TextLength = 0 Then TextBox2.Text = Application.StartupPath & "\Hashbull_Scanner\Copy_Folder" If My.Settings.Eng = False Then Label1.Text = "Laufwerke:" Label2.Text = "Datei-Formate:" SaveSettings.Text = "Speichern" Button2.Text = "Werkseinstellungen" Button3.Text = "Abbrechen" Label3.Text = "Kopierordner:" Button1.Text = "Öffnen" End If End Sub Public Sub Button1_Click(sender As Object, e As EventArgs) Handles SaveSettings.Click My.Settings.EFSDrives = TextBox1.Text My.Settings.CopyFolder = TextBox2.Text My.Settings.EFS2 = CheckBox2.Checked My.Settings.EFS3 = CheckBox3.Checked My.Settings.EFS4 = CheckBox4.Checked My.Settings.EFS5 = CheckBox5.Checked My.Settings.EFS6 = CheckBox6.Checked My.Settings.EFS7 = CheckBox7.Checked My.Settings.Save() My.Settings.Reload() Me.Close() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click TextBox1.Text = "C D E F G H I J K L M N O P Q R S T U V W X Y Z" TextBox2.Text = Application.StartupPath & "\Hashbull_Scanner\Copy_Folder" CheckBox2.Checked = True CheckBox3.Checked = True CheckBox4.Checked = True CheckBox5.Checked = True CheckBox6.Checked = True CheckBox7.Checked = True End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Me.Close() End Sub Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click '#### Copy Folder Using f As New FolderBrowserDialog() If f.ShowDialog() = Windows.Forms.DialogResult.OK Then Dim d As New System.IO.DirectoryInfo(f.SelectedPath) TextBox2.Text = f.SelectedPath End If End Using End Sub End Class