Option Strict Off
Option Explicit On 
Public Class Form1
    Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call
    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
    Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
    Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
    Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
    Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
    Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
    Friend WithEvents ListBox2 As System.Windows.Forms.ListBox
    Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton
    Friend WithEvents RadioButton4 As System.Windows.Forms.RadioButton
    Friend WithEvents RadioButton5 As System.Windows.Forms.RadioButton
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents RadioButton6 As System.Windows.Forms.RadioButton
    Friend WithEvents RadioButton7 As System.Windows.Forms.RadioButton
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents Button4 As System.Windows.Forms.Button
    Friend WithEvents Button5 As System.Windows.Forms.Button
    Friend WithEvents Button8 As System.Windows.Forms.Button
    Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
    Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox4 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox5 As System.Windows.Forms.CheckBox
    Friend WithEvents RadioButton11 As System.Windows.Forms.RadioButton
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents RadioButton8 As System.Windows.Forms.RadioButton
    Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
    Friend WithEvents RB_DO_MS As System.Windows.Forms.RadioButton
    Friend WithEvents RB_DO_SA As System.Windows.Forms.RadioButton
    Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
    Friend WithEvents RB_Copy As System.Windows.Forms.RadioButton
    Friend WithEvents RB_Move As System.Windows.Forms.RadioButton
    Friend WithEvents Btn_Run As System.Windows.Forms.Button
    Friend WithEvents CB_Dest As System.Windows.Forms.ComboBox
    Friend WithEvents FileIn As System.Windows.Forms.ComboBox
    Friend WithEvents Btn_2 As System.Windows.Forms.Button
    Friend WithEvents Btn_1 As System.Windows.Forms.Button
    Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
    Friend WithEvents StatusBarPanel1 As System.Windows.Forms.StatusBarPanel
    Friend WithEvents StatusBarPanel2 As System.Windows.Forms.StatusBarPanel
    Friend WithEvents Btn_Exit As System.Windows.Forms.Button
    Friend WithEvents AxCommonDialog1 As AxMSComDlg.AxCommonDialog
    Friend WithEvents Lable6 As System.Windows.Forms.Label
    Friend WithEvents CheckBox6 As System.Windows.Forms.CheckBox
    Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents ComboBox3 As System.Windows.Forms.ComboBox
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents Button6 As System.Windows.Forms.Button
    Friend WithEvents ListBox3 As System.Windows.Forms.ListBox
    Friend WithEvents CheckBox7 As System.Windows.Forms.CheckBox

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
        Me.Button1 = New System.Windows.Forms.Button()
        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
        Me.ComboBox2 = New System.Windows.Forms.ComboBox()
        Me.ListBox1 = New System.Windows.Forms.ListBox()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
        Me.RadioButton1 = New System.Windows.Forms.RadioButton()
        Me.RadioButton2 = New System.Windows.Forms.RadioButton()
        Me.ListBox2 = New System.Windows.Forms.ListBox()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
        Me.TabPage1 = New System.Windows.Forms.TabPage()
        Me.CheckBox6 = New System.Windows.Forms.CheckBox()
        Me.Button5 = New System.Windows.Forms.Button()
        Me.Button4 = New System.Windows.Forms.Button()
        Me.Button3 = New System.Windows.Forms.Button()
        Me.TabPage3 = New System.Windows.Forms.TabPage()
        Me.Lable6 = New System.Windows.Forms.Label()
        Me.AxCommonDialog1 = New AxMSComDlg.AxCommonDialog()
        Me.Btn_Exit = New System.Windows.Forms.Button()
        Me.StatusBar1 = New System.Windows.Forms.StatusBar()
        Me.StatusBarPanel1 = New System.Windows.Forms.StatusBarPanel()
        Me.StatusBarPanel2 = New System.Windows.Forms.StatusBarPanel()
        Me.Btn_1 = New System.Windows.Forms.Button()
        Me.Btn_2 = New System.Windows.Forms.Button()
        Me.RB_Copy = New System.Windows.Forms.RadioButton()
        Me.RB_Move = New System.Windows.Forms.RadioButton()
        Me.Btn_Run = New System.Windows.Forms.Button()
        Me.CB_Dest = New System.Windows.Forms.ComboBox()
        Me.FileIn = New System.Windows.Forms.ComboBox()
        Me.TabPage2 = New System.Windows.Forms.TabPage()
        Me.GroupBox5 = New System.Windows.Forms.GroupBox()
        Me.RadioButton5 = New System.Windows.Forms.RadioButton()
        Me.RadioButton3 = New System.Windows.Forms.RadioButton()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
        Me.CheckBox7 = New System.Windows.Forms.CheckBox()
        Me.CheckBox5 = New System.Windows.Forms.CheckBox()
        Me.CheckBox4 = New System.Windows.Forms.CheckBox()
        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
        Me.CheckBox2 = New System.Windows.Forms.CheckBox()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Button8 = New System.Windows.Forms.Button()
        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
        Me.RB_DO_SA = New System.Windows.Forms.RadioButton()
        Me.RB_DO_MS = New System.Windows.Forms.RadioButton()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.RadioButton7 = New System.Windows.Forms.RadioButton()
        Me.RadioButton6 = New System.Windows.Forms.RadioButton()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.RadioButton11 = New System.Windows.Forms.RadioButton()
        Me.RadioButton8 = New System.Windows.Forms.RadioButton()
        Me.RadioButton4 = New System.Windows.Forms.RadioButton()
        Me.TabPage4 = New System.Windows.Forms.TabPage()
        Me.ListBox3 = New System.Windows.Forms.ListBox()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.ComboBox3 = New System.Windows.Forms.ComboBox()
        Me.Label6 = New System.Windows.Forms.Label()
        Me.Button6 = New System.Windows.Forms.Button()
        Me.TabControl1.SuspendLayout()
        Me.TabPage1.SuspendLayout()
        Me.TabPage3.SuspendLayout()
        CType(Me.AxCommonDialog1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.TabPage2.SuspendLayout()
        Me.GroupBox5.SuspendLayout()
        Me.GroupBox4.SuspendLayout()
        Me.GroupBox3.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.GroupBox1.SuspendLayout()
        Me.TabPage4.SuspendLayout()
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.BackColor = System.Drawing.SystemColors.Control
        Me.Button1.Location = New System.Drawing.Point(480, 8)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(48, 24)
        Me.Button1.TabIndex = 3
        Me.Button1.Text = "GO"
        '
        'ComboBox1
        '
        Me.ComboBox1.Location = New System.Drawing.Point(32, 8)
        Me.ComboBox1.MaxDropDownItems = 5
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(392, 21)
        Me.ComboBox1.TabIndex = 1
        '
        'ComboBox2
        '
        Me.ComboBox2.AllowDrop = True
        Me.ComboBox2.Location = New System.Drawing.Point(32, 56)
        Me.ComboBox2.MaxDropDownItems = 5
        Me.ComboBox2.Name = "ComboBox2"
        Me.ComboBox2.Size = New System.Drawing.Size(392, 21)
        Me.ComboBox2.TabIndex = 2
        '
        'ListBox1
        '
        Me.ListBox1.Location = New System.Drawing.Point(8, 128)
        Me.ListBox1.Name = "ListBox1"
        Me.ListBox1.ScrollAlwaysVisible = True
        Me.ListBox1.Size = New System.Drawing.Size(520, 173)
        Me.ListBox1.TabIndex = 3
        Me.ListBox1.TabStop = False
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(0, 48)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(24, 24)
        Me.Label1.TabIndex = 4
        Me.Label1.Text = "Out"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(8, 8)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(16, 24)
        Me.Label2.TabIndex = 5
        Me.Label2.Text = "In"
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'CheckBox1
        '
        Me.CheckBox1.Checked = True
        Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
        Me.CheckBox1.Location = New System.Drawing.Point(40, 32)
        Me.CheckBox1.Name = "CheckBox1"
        Me.CheckBox1.Size = New System.Drawing.Size(160, 16)
        Me.CheckBox1.TabIndex = 5
        Me.CheckBox1.Text = "Include Subdirectories"
        '
        'ProgressBar1
        '
        Me.ProgressBar1.Location = New System.Drawing.Point(16, 104)
        Me.ProgressBar1.Name = "ProgressBar1"
        Me.ProgressBar1.Size = New System.Drawing.Size(512, 16)
        Me.ProgressBar1.TabIndex = 8
        '
        'RadioButton1
        '
        Me.RadioButton1.Checked = True
        Me.RadioButton1.Location = New System.Drawing.Point(40, 80)
        Me.RadioButton1.Name = "RadioButton1"
        Me.RadioButton1.Size = New System.Drawing.Size(152, 16)
        Me.RadioButton1.TabIndex = 6
        Me.RadioButton1.TabStop = True
        Me.RadioButton1.Text = "\Your MP3\A\Angles"
        '
        'RadioButton2
        '
        Me.RadioButton2.Location = New System.Drawing.Point(256, 80)
        Me.RadioButton2.Name = "RadioButton2"
        Me.RadioButton2.Size = New System.Drawing.Size(128, 16)
        Me.RadioButton2.TabIndex = 7
        Me.RadioButton2.Text = "\Your MP3\Angles"
        '
        'ListBox2
        '
        Me.ListBox2.Location = New System.Drawing.Point(144, 128)
        Me.ListBox2.Name = "ListBox2"
        Me.ListBox2.Size = New System.Drawing.Size(352, 173)
        Me.ListBox2.Sorted = True
        Me.ListBox2.TabIndex = 13
        Me.ListBox2.TabStop = False
        Me.ListBox2.Visible = False
        '
        'TabControl1
        '
        Me.TabControl1.AllowDrop = True
        Me.TabControl1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage1, Me.TabPage2, Me.TabPage3, Me.TabPage4})
        Me.TabControl1.Location = New System.Drawing.Point(0, 8)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
        Me.TabControl1.Size = New System.Drawing.Size(544, 336)
        Me.TabControl1.TabIndex = 14
        '
        'TabPage1
        '
        Me.TabPage1.Controls.AddRange(New System.Windows.Forms.Control() {Me.CheckBox6, Me.Button5, Me.Button4, Me.Button3, Me.RadioButton2, Me.RadioButton1, Me.ComboBox2, Me.ComboBox1, Me.Label2, Me.Label1, Me.CheckBox1, Me.Button1, Me.ProgressBar1, Me.ListBox1, Me.ListBox2})
        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Size = New System.Drawing.Size(536, 310)
        Me.TabPage1.TabIndex = 0
        Me.TabPage1.Text = "Run"
        '
        'CheckBox6
        '
        Me.CheckBox6.Location = New System.Drawing.Point(400, 80)
        Me.CheckBox6.Name = "CheckBox6"
        Me.CheckBox6.TabIndex = 18
        Me.CheckBox6.Text = "Fake Run"
        Me.CheckBox6.Visible = False
        '
        'Button5
        '
        Me.Button5.Image = CType(resources.GetObject("Button5.Image"), System.Drawing.Bitmap)
        Me.Button5.Location = New System.Drawing.Point(432, 56)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(24, 24)
        Me.Button5.TabIndex = 17
        '
        'Button4
        '
        Me.Button4.Image = CType(resources.GetObject("Button4.Image"), System.Drawing.Bitmap)
        Me.Button4.Location = New System.Drawing.Point(432, 8)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(24, 24)
        Me.Button4.TabIndex = 16
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(480, 56)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(48, 24)
        Me.Button3.TabIndex = 14
        Me.Button3.Text = "Exit"
        '
        'TabPage3
        '
        Me.TabPage3.Controls.AddRange(New System.Windows.Forms.Control() {Me.Lable6, Me.AxCommonDialog1, Me.Btn_Exit, Me.StatusBar1, Me.Btn_1, Me.Btn_2, Me.RB_Copy, Me.RB_Move, Me.Btn_Run, Me.CB_Dest, Me.FileIn})
        Me.TabPage3.Location = New System.Drawing.Point(4, 22)
        Me.TabPage3.Name = "TabPage3"
        Me.TabPage3.Size = New System.Drawing.Size(536, 310)
        Me.TabPage3.TabIndex = 2
        Me.TabPage3.Text = "PL to CD"
        '
        'Lable6
        '
        Me.Lable6.Location = New System.Drawing.Point(56, 136)
        Me.Lable6.Name = "Lable6"
        Me.Lable6.Size = New System.Drawing.Size(408, 88)
        Me.Lable6.TabIndex = 22
        Me.Lable6.Text = "This utility will take a Playlist File and copy all the songs to a specified dire" & _
        "ctory.  Making it easer to creat your favoret CD's from a large collection of mu" & _
        "sic. "
        '
        'AxCommonDialog1
        '
        Me.AxCommonDialog1.ContainingControl = Me
        Me.AxCommonDialog1.Enabled = True
        Me.AxCommonDialog1.Location = New System.Drawing.Point(24, 232)
        Me.AxCommonDialog1.Name = "AxCommonDialog1"
        Me.AxCommonDialog1.OcxState = CType(resources.GetObject("AxCommonDialog1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.AxCommonDialog1.Size = New System.Drawing.Size(32, 32)
        Me.AxCommonDialog1.TabIndex = 21
        '
        'Btn_Exit
        '
        Me.Btn_Exit.Location = New System.Drawing.Point(376, 88)
        Me.Btn_Exit.Name = "Btn_Exit"
        Me.Btn_Exit.Size = New System.Drawing.Size(48, 24)
        Me.Btn_Exit.TabIndex = 20
        Me.Btn_Exit.Text = "Exit"
        '
        'StatusBar1
        '
        Me.StatusBar1.Location = New System.Drawing.Point(0, 288)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.StatusBarPanel1, Me.StatusBarPanel2})
        Me.StatusBar1.ShowPanels = True
        Me.StatusBar1.Size = New System.Drawing.Size(536, 22)
        Me.StatusBar1.TabIndex = 19
        '
        'StatusBarPanel1
        '
        Me.StatusBarPanel1.MinWidth = 80
        Me.StatusBarPanel1.Width = 90
        '
        'StatusBarPanel2
        '
        Me.StatusBarPanel2.Width = 500
        '
        'Btn_1
        '
        Me.Btn_1.Image = CType(resources.GetObject("Btn_1.Image"), System.Drawing.Bitmap)
        Me.Btn_1.Location = New System.Drawing.Point(496, 8)
        Me.Btn_1.Name = "Btn_1"
        Me.Btn_1.Size = New System.Drawing.Size(24, 24)
        Me.Btn_1.TabIndex = 18
        '
        'Btn_2
        '
        Me.Btn_2.Image = CType(resources.GetObject("Btn_2.Image"), System.Drawing.Bitmap)
        Me.Btn_2.Location = New System.Drawing.Point(496, 40)
        Me.Btn_2.Name = "Btn_2"
        Me.Btn_2.Size = New System.Drawing.Size(24, 24)
        Me.Btn_2.TabIndex = 17
        '
        'RB_Copy
        '
        Me.RB_Copy.Checked = True
        Me.RB_Copy.Location = New System.Drawing.Point(104, 88)
        Me.RB_Copy.Name = "RB_Copy"
        Me.RB_Copy.Size = New System.Drawing.Size(56, 24)
        Me.RB_Copy.TabIndex = 11
        Me.RB_Copy.TabStop = True
        Me.RB_Copy.Text = "Copy"
        '
        'RB_Move
        '
        Me.RB_Move.Location = New System.Drawing.Point(176, 88)
        Me.RB_Move.Name = "RB_Move"
        Me.RB_Move.Size = New System.Drawing.Size(56, 24)
        Me.RB_Move.TabIndex = 10
        Me.RB_Move.Text = "Move"
        '
        'Btn_Run
        '
        Me.Btn_Run.Location = New System.Drawing.Point(296, 88)
        Me.Btn_Run.Name = "Btn_Run"
        Me.Btn_Run.Size = New System.Drawing.Size(56, 24)
        Me.Btn_Run.TabIndex = 9
        Me.Btn_Run.Text = "Run"
        '
        'CB_Dest
        '
        Me.CB_Dest.Location = New System.Drawing.Point(16, 40)
        Me.CB_Dest.Name = "CB_Dest"
        Me.CB_Dest.Size = New System.Drawing.Size(472, 21)
        Me.CB_Dest.TabIndex = 8
        Me.CB_Dest.Text = "C:\Bin\"
        '
        'FileIn
        '
        Me.FileIn.Location = New System.Drawing.Point(16, 8)
        Me.FileIn.Name = "FileIn"
        Me.FileIn.Size = New System.Drawing.Size(472, 21)
        Me.FileIn.TabIndex = 6
        Me.FileIn.Text = "M:\test.m3u"
        '
        'TabPage2
        '
        Me.TabPage2.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox5, Me.Label5, Me.Label4, Me.GroupBox4, Me.Button8, Me.GroupBox3, Me.GroupBox2, Me.GroupBox1})
        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Size = New System.Drawing.Size(536, 310)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "Options"
        '
        'GroupBox5
        '
        Me.GroupBox5.Controls.AddRange(New System.Windows.Forms.Control() {Me.RadioButton5, Me.RadioButton3})
        Me.GroupBox5.Enabled = False
        Me.GroupBox5.Location = New System.Drawing.Point(8, 192)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(160, 104)
        Me.GroupBox5.TabIndex = 12
        Me.GroupBox5.TabStop = False
        Me.GroupBox5.Text = "Old Files"
        '
        'RadioButton5
        '
        Me.RadioButton5.Location = New System.Drawing.Point(24, 48)
        Me.RadioButton5.Name = "RadioButton5"
        Me.RadioButton5.Size = New System.Drawing.Size(104, 16)
        Me.RadioButton5.TabIndex = 2
        Me.RadioButton5.Text = "Delete"
        '
        'RadioButton3
        '
        Me.RadioButton3.Checked = True
        Me.RadioButton3.Location = New System.Drawing.Point(24, 24)
        Me.RadioButton3.Name = "RadioButton3"
        Me.RadioButton3.Size = New System.Drawing.Size(104, 16)
        Me.RadioButton3.TabIndex = 0
        Me.RadioButton3.TabStop = True
        Me.RadioButton3.Text = "Leave In Dir"
        '
        'Label5
        '
        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label5.Location = New System.Drawing.Point(224, 208)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(128, 16)
        Me.Label5.TabIndex = 10
        Me.Label5.Text = " Artist - Song "
        '
        'Label4
        '
        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label4.Location = New System.Drawing.Point(216, 168)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(136, 32)
        Me.Label4.TabIndex = 9
        Me.Label4.Text = "Files must be in the following format: "
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.AddRange(New System.Windows.Forms.Control() {Me.CheckBox7, Me.CheckBox5, Me.CheckBox4, Me.CheckBox3, Me.CheckBox2, Me.Label3})
        Me.GroupBox4.Location = New System.Drawing.Point(384, 16)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(144, 280)
        Me.GroupBox4.TabIndex = 7
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "File Types"
        '
        'CheckBox7
        '
        Me.CheckBox7.Location = New System.Drawing.Point(80, 24)
        Me.CheckBox7.Name = "CheckBox7"
        Me.CheckBox7.Size = New System.Drawing.Size(56, 16)
        Me.CheckBox7.TabIndex = 9
        Me.CheckBox7.Text = ".WMA"
        '
        'CheckBox5
        '
        Me.CheckBox5.Location = New System.Drawing.Point(16, 72)
        Me.CheckBox5.Name = "CheckBox5"
        Me.CheckBox5.Size = New System.Drawing.Size(56, 16)
        Me.CheckBox5.TabIndex = 3
        Me.CheckBox5.Text = ".OGG"
        '
        'CheckBox4
        '
        Me.CheckBox4.Location = New System.Drawing.Point(80, 48)
        Me.CheckBox4.Name = "CheckBox4"
        Me.CheckBox4.Size = New System.Drawing.Size(56, 16)
        Me.CheckBox4.TabIndex = 2
        Me.CheckBox4.Text = ".AU"
        '
        'CheckBox3
        '
        Me.CheckBox3.Location = New System.Drawing.Point(16, 48)
        Me.CheckBox3.Name = "CheckBox3"
        Me.CheckBox3.Size = New System.Drawing.Size(56, 16)
        Me.CheckBox3.TabIndex = 1
        Me.CheckBox3.Text = ".WAV"
        '
        'CheckBox2
        '
        Me.CheckBox2.Checked = True
        Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked
        Me.CheckBox2.Location = New System.Drawing.Point(16, 24)
        Me.CheckBox2.Name = "CheckBox2"
        Me.CheckBox2.Size = New System.Drawing.Size(56, 16)
        Me.CheckBox2.TabIndex = 0
        Me.CheckBox2.Text = ".MP3"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(24, 144)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(88, 40)
        Me.Label3.TabIndex = 8
        Me.Label3.Text = "FIx Flie types"
        '
        'Button8
        '
        Me.Button8.Location = New System.Drawing.Point(224, 264)
        Me.Button8.Name = "Button8"
        Me.Button8.Size = New System.Drawing.Size(112, 24)
        Me.Button8.TabIndex = 6
        Me.Button8.Text = "Reset Defaults"
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.AddRange(New System.Windows.Forms.Control() {Me.RB_DO_SA, Me.RB_DO_MS})
        Me.GroupBox3.Location = New System.Drawing.Point(8, 16)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(160, 72)
        Me.GroupBox3.TabIndex = 3
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "Database Options"
        '
        'RB_DO_SA
        '
        Me.RB_DO_SA.Checked = True
        Me.RB_DO_SA.Location = New System.Drawing.Point(24, 48)
        Me.RB_DO_SA.Name = "RB_DO_SA"
        Me.RB_DO_SA.Size = New System.Drawing.Size(128, 16)
        Me.RB_DO_SA.TabIndex = 1
        Me.RB_DO_SA.TabStop = True
        Me.RB_DO_SA.Text = "Scan and add Songs"
        '
        'RB_DO_MS
        '
        Me.RB_DO_MS.Location = New System.Drawing.Point(24, 24)
        Me.RB_DO_MS.Name = "RB_DO_MS"
        Me.RB_DO_MS.Size = New System.Drawing.Size(120, 16)
        Me.RB_DO_MS.TabIndex = 0
        Me.RB_DO_MS.Text = "Merge Songs"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.RadioButton7, Me.RadioButton6})
        Me.GroupBox2.Enabled = False
        Me.GroupBox2.Location = New System.Drawing.Point(8, 104)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(160, 72)
        Me.GroupBox2.TabIndex = 2
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "Old Directory"
        '
        'RadioButton7
        '
        Me.RadioButton7.Location = New System.Drawing.Point(24, 48)
        Me.RadioButton7.Name = "RadioButton7"
        Me.RadioButton7.Size = New System.Drawing.Size(88, 16)
        Me.RadioButton7.TabIndex = 1
        Me.RadioButton7.Text = "Remove"
        '
        'RadioButton6
        '
        Me.RadioButton6.Checked = True
        Me.RadioButton6.Location = New System.Drawing.Point(24, 24)
        Me.RadioButton6.Name = "RadioButton6"
        Me.RadioButton6.Size = New System.Drawing.Size(88, 16)
        Me.RadioButton6.TabIndex = 0
        Me.RadioButton6.TabStop = True
        Me.RadioButton6.Text = "Leave intact"
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.RadioButton11, Me.RadioButton8, Me.RadioButton4})
        Me.GroupBox1.Location = New System.Drawing.Point(184, 16)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(184, 96)
        Me.GroupBox1.TabIndex = 1
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Duplicate Files"
        '
        'RadioButton11
        '
        Me.RadioButton11.Location = New System.Drawing.Point(16, 48)
        Me.RadioButton11.Name = "RadioButton11"
        Me.RadioButton11.Size = New System.Drawing.Size(128, 16)
        Me.RadioButton11.TabIndex = 4
        Me.RadioButton11.Text = "Replace Old File"
        '
        'RadioButton8
        '
        Me.RadioButton8.Checked = True
        Me.RadioButton8.Location = New System.Drawing.Point(16, 24)
        Me.RadioButton8.Name = "RadioButton8"
        Me.RadioButton8.Size = New System.Drawing.Size(128, 16)
        Me.RadioButton8.TabIndex = 11
        Me.RadioButton8.TabStop = True
        Me.RadioButton8.Text = "Keep original"
        '
        'RadioButton4
        '
        Me.RadioButton4.Location = New System.Drawing.Point(16, 72)
        Me.RadioButton4.Name = "RadioButton4"
        Me.RadioButton4.Size = New System.Drawing.Size(128, 16)
        Me.RadioButton4.TabIndex = 1
        Me.RadioButton4.Text = "Move file to '_Have'"
        '
        'TabPage4
        '
        Me.TabPage4.Controls.AddRange(New System.Windows.Forms.Control() {Me.ListBox3, Me.Button2, Me.ComboBox3, Me.Label6, Me.Button6})
        Me.TabPage4.Location = New System.Drawing.Point(4, 22)
        Me.TabPage4.Name = "TabPage4"
        Me.TabPage4.Size = New System.Drawing.Size(536, 310)
        Me.TabPage4.TabIndex = 3
        Me.TabPage4.Text = "Html Out"
        '
        'ListBox3
        '
        Me.ListBox3.Location = New System.Drawing.Point(24, 136)
        Me.ListBox3.MultiColumn = True
        Me.ListBox3.Name = "ListBox3"
        Me.ListBox3.Size = New System.Drawing.Size(464, 121)
        Me.ListBox3.TabIndex = 21
        '
        'Button2
        '
        Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Bitmap)
        Me.Button2.Location = New System.Drawing.Point(432, 8)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(24, 24)
        Me.Button2.TabIndex = 20
        '
        'ComboBox3
        '
        Me.ComboBox3.Location = New System.Drawing.Point(32, 8)
        Me.ComboBox3.MaxDropDownItems = 5
        Me.ComboBox3.Name = "ComboBox3"
        Me.ComboBox3.Size = New System.Drawing.Size(392, 21)
        Me.ComboBox3.TabIndex = 17
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(8, 8)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(16, 24)
        Me.Label6.TabIndex = 19
        Me.Label6.Text = "In"
        Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'Button6
        '
        Me.Button6.BackColor = System.Drawing.SystemColors.Control
        Me.Button6.Location = New System.Drawing.Point(480, 8)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(48, 24)
        Me.Button6.TabIndex = 18
        Me.Button6.Text = "GO"
        '
        'Form1
        '
        Me.AccessibleName = "MP3 Sorter"
        Me.AccessibleRole = System.Windows.Forms.AccessibleRole.Application
        Me.AllowDrop = True
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(544, 342)
        Me.ControlBox = False
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabControl1})
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.Name = "Form1"
        Me.Text = "MP3 Sorter"
        Me.TabControl1.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        Me.TabPage3.ResumeLayout(False)
        CType(Me.AxCommonDialog1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabPage2.ResumeLayout(False)
        Me.GroupBox5.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.TabPage4.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub
#End Region

    Public Dir_In, Dir_Out As String
    Public Ma, Mb, Mc As Integer  ' Ma = total : Mb= Dups : Over Writen

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim A, B, C As Integer : Dim Ax As String
        Ax = GetSetting("MP3 Sorter", "Settings", "First Run")
        If Ax = "" Or Ax = "True" Then
            SaveSetting("MP3 Sorter", "Settings", "First Run", "False")
            Exit Sub
        Else
            For B = 1 To 5
                Ax = GetSetting("MP3 Sorter", "Dir In", B)
                If Len(Ax) <> 0 Then
                    ComboBox1.Items.Add(Ax)
                End If
            Next
            For B = 1 To 5
                Ax = GetSetting("MP3 Sorter", "Dir Out", B)
                If Len(Ax) <> 0 Then
                    ComboBox2.Items.Add(Ax)
                End If
            Next
            For B = 1 To 5
                Ax = GetSetting("MP3 Sorter", "PlFileIn", B)
                If Len(Ax) <> 0 Then
                    FileIn.Items.Add(Ax)
                End If
            Next
            For B = 1 To 5
                Ax = GetSetting("MP3 Sorter", "PLDest", B)
                If Len(Ax) <> 0 Then
                    CB_Dest.Items.Add(Ax)
                End If
            Next

            'DB Option
            A = GetSetting("MP3 Sorter", "Settings", "DB Option")
            If A = 1 Then
                RB_DO_MS.Checked = True
                RB_DO_SA.Checked = False
            Else
                RB_DO_SA.Checked = True
                RB_DO_MS.Checked = False
            End If

            'Dir Type  IE. \my\a\
            If RadioButton1.Checked = True Then A = 1 Else A = 2
            If GetSetting("MP3 Sorter", "Settings", "DIR Type") = 1 Then
                RadioButton1.Checked = True
                RadioButton2.Checked = False
            Else
                RadioButton2.Checked = True
                RadioButton1.Checked = False
            End If

            'Dup Files
            A = GetSetting("MP3 Sorter", "Settings", "Dup Files")
            If A = 1 Then
                RadioButton8.Checked = True
                RadioButton11.Checked = False
                RadioButton4.Checked = False
            ElseIf A = 2 Then
                RadioButton11.Checked = True
                RadioButton8.Checked = False
                RadioButton4.Checked = False
            Else
                RadioButton4.Checked = True
                RadioButton11.Checked = False
                RadioButton8.Checked = False
            End If

            'Include Sub Dir
            If GetSetting("MP3 Sorter", "Settings", "Include Sub Dir") = "True" Then
                CheckBox1.Checked = True
            Else
                CheckBox1.Checked = False
            End If

            'Old Dirrectory
            If GetSetting("MP3 Sorter", "Settings", "Old Dir") = 1 Then
                RadioButton6.Checked = True
                RadioButton7.Checked = False
            Else
                RadioButton7.Checked = True
                RadioButton6.Checked = False
            End If

            'Old Files
            If GetSetting("MP3 Sorter", "Settings", "Old Files") = 1 Then
                RadioButton3.Checked = True
                RadioButton5.Checked = False
            Else
                RadioButton5.Checked = True
                RadioButton3.Checked = False
            End If
        End If
    End Sub
    Private Sub Button1_Run(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, f, g, v, w, y As Integer
        Dim msg, Old, Qx, Sx, title, Result, Resul As String
        Dim style As MsgBoxStyle
        Dim response As MsgBoxResult

        ProgressBar1.Value = 0
        Ma = 0 : Mb = 0 : Mc = 0
        ProgressBar1.Controls.Clear()
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()

        Dir_Out = ComboBox2.Text
        If Not Dir_Out.EndsWith("\") Then Dir_Out = Dir_Out + "\"
        If Not System.IO.Directory.Exists(Dir_Out) Then
            msg = "The Output Directory you specified does not exist." + Chr(13) + "Creat?" ' Define message.
            style = MsgBoxStyle.DefaultButton2 Or _
               MsgBoxStyle.Critical Or MsgBoxStyle.YesNo
            title = "Output Directory Error"
            response = MsgBox(msg, style, title)
            If response = MsgBoxResult.Yes Then
                MkDir(Dir_Out)
            Else
                Exit Sub
            End If
        End If
        Dir_In = ComboBox1.Text
        If Not Dir_In.EndsWith("\") Then Dir_In = Dir_In + "\"
        If Not System.IO.Directory.Exists(Dir_In) Then MsgBox("Please check your Input Directory.", , "Error") : Exit Sub

        If ComboBox1.Items.Contains(ComboBox1.Text) Then
            ComboBox1.Items.Remove(ComboBox1.Text)
        End If
        ComboBox1.Items.Insert(0, Dir_In)
        ComboBox1.Text = Dir_In

        If ComboBox2.Items.Contains(ComboBox2.Text) Then
            ComboBox2.Items.Remove(ComboBox2.Text)
        End If
        ComboBox2.Items.Insert(0, Dir_Out)
        ComboBox2.Text = Dir_Out

        If CheckBox1.Checked = True Then
            f = 0 : w = 1 : ListBox2.Items.Add(Dir_In)
            Do
                If ListBox2.Items.Count = f Then Exit Do
                Qx = ListBox2.Items(f)
                Result = Dir(Qx & "*.*", FileAttribute.Directory)
                g = 0
                Do
                    If Result = "" Then Exit Do
                    v = GetAttr(Qx & Result)
                    If v = FileAttribute.Directory Or v = 48 Or v = 17 Then '17=read only()
                        w = w + 1
                        g = g + 1
                        Dir_In = Qx + Result + "\"
                        ListBox2.Items.Add(Dir_In)
                    End If
                    Result = Dir()
                Loop
                f = f + 1
            Loop
            For y = 0 To (ListBox2.Items.Count - 1)
                Dir_In = ListBox2.Items.Item(y)
                Result = Dir(Dir_In)
                Do Until Result = ""
                    If InStr(Result, " - ") Then
                        Resul = UCase(Result)
                        If CheckBox2.Checked = True And Resul.EndsWith(".MP3") Then
                            ListBox1.Items.Add(Dir_In + Result) : Ma = Ma + 1
                        ElseIf CheckBox7.Checked = True And Resul.EndsWith(".WMA") Then
                            ListBox1.Items.Add(Dir_In + Result) : Ma = Ma + 1
                        ElseIf CheckBox3.Checked = True And Resul.EndsWith(".WAV") Then
                            ListBox1.Items.Add(Dir_In + Result) : Ma = Ma + 1
                        ElseIf CheckBox4.Checked = True And Resul.EndsWith(".AU") Then
                            ListBox1.Items.Add(Dir_In + Result) : Ma = Ma + 1
                        ElseIf CheckBox5.Checked = True And Resul.EndsWith(".OGG") Then
                            ListBox1.Items.Add(Dir_In + Result) : Ma = Ma + 1
                        End If
                    End If
                        Result = Dir()
                Loop
            Next
            If ListBox1.Items.Count = 0 Then MsgBox("No files found") : Exit Sub
            go()
            If RadioButton7.Enabled = True And RadioButton7.Checked = True Then   '    Delete Directory
                For y = (ListBox2.Items.Count - 1) To 0 Step -1
                    Qx = ListBox2.Items.Item(y)
                    SetAttr(Qx, FileAttribute.Normal)
                    Sx = Dir(Qx)
                    If Sx = "" Then Sx = Dir(Qx, FileAttribute.Directory)
                    If Sx = "" Then Sx = Dir(Qx, FileAttribute.Hidden)
                    If (Sx = "") Then System.IO.Directory.Delete(Qx)
                Next
            End If
        Else
            Result = Dir(Dir_In)
            Do Until Result = ""
                If InStr(Result, " - ") Then
                    Resul = UCase(Result)
                    If CheckBox2.Checked = True And Resul.EndsWith(".MP3") Then
                        ListBox1.Items.Add(Dir_In + Result) : Ma = Ma + 1
                    ElseIf CheckBox7.Checked = True And Resul.EndsWith(".WMA") Then
                        ListBox1.Items.Add(Dir_In + Result) : Ma = Ma + 1
                    ElseIf CheckBox3.Checked = True And Resul.EndsWith(".WAV") Then
                        ListBox1.Items.Add(Dir_In + Result) : Ma = Ma + 1
                    ElseIf CheckBox4.Checked = True And Resul.EndsWith(".AU") Then
                        ListBox1.Items.Add(Dir_In + Result) : Ma = Ma + 1
                    ElseIf CheckBox5.Checked = True And Resul.EndsWith(".OGG") Then
                        ListBox1.Items.Add(Dir_In + Result) : Ma = Ma + 1
                    End If
                End If
                Result = Dir()
            Loop
            If ListBox1.Items.Count = 0 Then MsgBox("No files found") : Exit Sub
            go()
        End If
        ProgressBar1.Maximum = 100 : ProgressBar1.Value = 100
        If Mc <> 0 Then
            msg = Ma & " Total Files, " & Mc & " Overwriten."
        Else
            msg = Ma & " Total Files, " & Mb & " Duplicates."
        End If
        MsgBox(msg, , "Successful")
    End Sub
    Sub go()
        Dim a, b, c, d, e, z As Single
        Dim Art, Here, Old, Sx, Sdir As String
        b = 1 : a = ListBox1.Items.Count()
        Do
            If a < 100 Then Exit Do
            a = a / 2
            b = b * 2
        Loop
        ProgressBar1.Step = (100 / a)

        For z = 0 To (ListBox1.Items.Count - 1)
            Sx = ListBox1.Items.Item(z)
            If InStr(Sx, "\") Then
                Old = Sx
                Do
                    d = InStr(Sx, "\")
                    If d = 0 Then Exit Do
                    Sx = Sx.Remove(0, d)
                Loop
            Else
                Old = Dir_In + Sx
            End If
            Sdir = UCase(Sx.Remove(1, (Len(Sx) - 1)))
            If Not (Asc(Sdir) > 64 And Asc(Sdir) < 91) Or ((Asc(Sdir) > 96 And Asc(Sdir) < 123)) Then Sdir = "1"
            e = InStr(Sx, " - ")
            Art = Sx.Remove((e - 1), ((Len(Sx) - e) + 1))
            If RadioButton1.Checked = True Then
                Here = Dir_Out + Sdir + "\" + Art + "\"
            Else
                Here = Dir_Out + Art + "\"
            End If
            If Not System.IO.Directory.Exists(Here) Then MkDir(Here)

            If System.IO.File.Exists(Old) = True Then    'File Still there
                If System.IO.File.Exists(Here + Sx) = False Then   'New File
                    If Len(Here + Sx) < 249 Then
                        If RadioButton3.Checked = True Then
                            System.IO.File.Copy(Old, Here + Sx)
                        Else
                            System.IO.File.Move(Old, Here + Sx)
                        End If
                    End If
                Else                                               'File exists
                    Mb = Mb + 1
                    If RadioButton8.Checked = True Then            ' Keep
                        If RadioButton5.Checked = True Then System.IO.File.Delete(Old)
                    ElseIf RadioButton4.Checked = True Then        ' Move
                        If Not System.IO.Directory.Exists(Dir_Out + "_Have\") Then MkDir(Dir_Out + "_Have\")
                        If System.IO.File.Exists(Dir_Out + "_Have\" + Sx) Then
                            If RadioButton5.Checked = True Then System.IO.File.Delete(Old)
                        Else
                            If RadioButton5.Checked = True Then
                                System.IO.File.Move(Old, Dir_Out + "_Have\" + Sx)
                            Else
                                System.IO.File.Copy(Old, Dir_Out + "_Have\" + Sx)
                            End If
                        End If
                    ElseIf RadioButton11.Checked = True Then       ' Overwriet
                        Mc = Mc + 1
                        System.IO.File.Delete(Here + Sx)
                        If RadioButton5.Checked = True Then
                            System.IO.File.Move(Old, Here + Sx)
                        Else
                            System.IO.File.Copy(Old, Here + Sx)
                        End If
                    End If
                    c = c + 1
                    If c = b Then
                        c = 0
                        ProgressBar1.PerformStep()
                        ProgressBar1.Update()
                    End If
                End If
            End If
        Next
    End Sub
    Private Sub Button3_End(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim a, b, c As Integer : Dim Ax As String
        c = ComboBox1.Items.Count
        If Not (c = 0) Then
            If c > 5 Then c = 5
            For b = 0 To c - 1
                If Not ComboBox1.Items.Item(b) = "" Then SaveSetting("MP3 Sorter", "Dir In", (b + 1), ComboBox1.Items.Item(b))
            Next
        End If
        c = ComboBox2.Items.Count
        If Not (c = 0) Then
            If c > 5 Then c = 5
            For b = 0 To c - 1
                If Not ComboBox2.Items.Item(b) = "" Then SaveSetting("MP3 Sorter", "Dir Out", (b + 1), ComboBox2.Items.Item(b))
            Next
        End If
        c = FileIn.Items.Count
        If Not (c = 0) Then
            If c > 5 Then c = 5
            For b = 0 To c - 1
                If Not FileIn.Items.Item(b) = "" Then SaveSetting("MP3 Sorter", "PlFileIn", (b + 1), FileIn.Items.Item(b))
            Next
        End If
        c = CB_Dest.Items.Count
        If Not (c = 0) Then
            If c > 5 Then c = 5
            For b = 0 To c - 1
                If Not CB_Dest.Items.Item(b) = "" Then SaveSetting("MP3 Sorter", "PLDest", (b + 1), CB_Dest.Items.Item(b))
            Next
        End If

        'DB Option
        If RB_DO_MS.Checked = True Then a = 1 Else a = 2
        SaveSetting("MP3 Sorter", "Settings", "DB Option", Str(a))

        'Dir Type  IE. \my\a\
        If RadioButton1.Checked = True Then a = 1 Else a = 2
        SaveSetting("MP3 Sorter", "Settings", "DIR Type", Str(a))


        'Dup Files
        If RadioButton8.Checked = True Then
            a = 1
        ElseIf RadioButton11.Checked = True Then
            a = 2
        ElseIf RadioButton4.Checked = True Then
            a = 3
        End If
        SaveSetting("MP3 Sorter", "Settings", "Dup Files", Str(a))

        'Include Sub Dir
        If CheckBox1.Checked() = True Then Ax = "True" Else Ax = "False"
        SaveSetting("MP3 Sorter", "Settings", "Include Sub Dir", Ax)

        'Old Dirrectory
        If RadioButton6.Checked = True Then a = 1 Else a = 2
        SaveSetting("MP3 Sorter", "Settings", "Old Dir", Str(a))

        'Old Files
        If RadioButton3.Checked = True Then a = 1 Else a = 2
        SaveSetting("MP3 Sorter", "Settings", "Old Files", Str(a))
        End
    End Sub
    Public Sub RadioButton10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RB_DO_SA.CheckedChanged
        If RB_DO_SA.Checked = True Then
            GroupBox2.Enabled = False
            GroupBox5.Enabled = False
            RadioButton3.Checked = True
            RadioButton6.Checked = True
        Else
            GroupBox2.Enabled = True
            GroupBox5.Enabled = True
            RadioButton5.Checked = True
            RadioButton7.Checked = True
        End If
    End Sub
    Private Sub Button4_GetIn(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim i As Integer
        Dir_In = BrowseForFolder(Me.Handle.ToInt32, "Please select the directory to be scaned.") 'Handle.ToInt32
        If Dir_In <> "" Then
            i = Len(Dir_In)
            If Dir_In.Chars(i - 1) <> "\" Then
                ComboBox1.Text = Dir_In + "\"
            Else
                ComboBox1.Text = Dir_In
            End If
        End If
    End Sub
    Private Sub Button5_GetOut(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim i As Integer
        Dir_Out = BrowseForFolder(Me.Handle.ToInt32, "Please select your MP3 direstory.") 'Handle.ToInt32
        If Dir_Out <> "" Then
            i = Len(Dir_Out)
            If Dir_Out.Chars(i - 1) <> "\" Then
                ComboBox2.Text = Dir_Out + "\"
            Else
                ComboBox2.Text = Dir_Out
            End If
        End If
    End Sub
    Private Sub Button8_ResetDefaults(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        ComboBox1.Items.Clear()
        If GetSetting("MP3 Sorter", "Dir In", "1") <> "" Then DeleteSetting("MP3 Sorter", "Dir In")
        ComboBox1.Text = ""

        ComboBox2.Items.Clear()
        If GetSetting("MP3 Sorter", "Dir Out", "1") <> "" Then DeleteSetting("MP3 Sorter", "Dir Out")
        ComboBox2.Text = ""

        RadioButton1.Checked = True
        RadioButton6.Checked = True
        RadioButton3.Checked = True
        RadioButton8.Checked = True
        RB_DO_SA.Checked = True
    End Sub
    Private Sub Btn_Run_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Run.Click
        Dim Xa, Xf, Xi, Xo As String
        Dim Ax As Object
        Dim a, b As Integer

        Btn_Run.Enabled = False
        If FileIn.Items.Contains(FileIn.Text) Then
            FileIn.Items.Remove(FileIn.Text)
        End If
        FileIn.Items.Insert(0, FileIn.Text)
        If CB_Dest.Items.Contains(CB_Dest.Text) Then
            CB_Dest.Items.Remove(CB_Dest.Text)
        End If
        CB_Dest.Items.Insert(0, CB_Dest.Text)

        a = 0 : StatusBarPanel1.Text = "" : StatusBarPanel2.Text = ""
        Xf = "" '             File Name
        Xi = "" '             Dir in
        Xo = CB_Dest.Text '   Dir out
        FileOpen(1, FileIn.Text, OpenMode.Input)
        While Not EOF(1)
            Xa = LineInput(1)
            If Not Xa.StartsWith("#") Then
                Ax = Xa.Split("\")
                a = Ax.GetUpperBound(0)
                Xf = Ax(a)
                Xi = Microsoft.VisualBasic.Left(Xa, (Len(Xa) - Len(Xf)))
                If Not InStr(Xi, ":") = 2 Then Xi = Microsoft.VisualBasic.Left(FileIn.Text, 2) + "\" + Xi

                ' MsgBox("File:     " + Xf + Chr(13) + "Dir in:  " + Xi + Chr(13) + "Dir Out: " + Xo, , "Stats")
                If System.IO.File.Exists(Xi + Xf) Then
                    If Not System.IO.File.Exists(Xo + Xf) Then
                        If RB_Copy.Checked = True Then
                            StatusBarPanel2.Text = "Coping: " + Xf
                            System.IO.File.Copy(Xi + Xf, Xo + Xf)
                        Else
                            StatusBarPanel2.Text = "Moving: " + Xf
                            System.IO.File.Move(Xi + Xf, Xo + Xf)
                        End If
                    End If
                End If
            End If
            StatusBarPanel1.Text = Val(StatusBarPanel1.Text) + 1
        End While
        FileClose(1)
        Btn_Run.Enabled = True

    End Sub
    Private Sub Btn_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_1.Click
        With AxCommonDialog1
            .FileName = ""
            .DialogTitle = "Open"
            .CancelError = False
            .InitDir = ComboBox2.Text
            'Added the Text File entry in addition to All Files
            .Filter = "Playlist File(*.m3u)|*.m3u"
            ' .Filter = "INI Files(*.ini)|*.ini|Text Files (*.txt)|*.txt"
            .ShowOpen()
            If Len(.FileName) = 0 Then
                Exit Sub
            End If
            FileIn.Text = .FileName
        End With
    End Sub
    Private Sub Btn_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_2.Click
        Dim Dir_in2 As String
        Dir_in2 = BrowseForFolder(Me.Handle.ToInt32, "Please select the directory to be scaned.") 'Handle.ToInt32
        If Dir_in2 <> "" Then
            CB_Dest.Text = Dir_in2 + "\"
        End If

    End Sub
    Private Sub Btn_Exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Exit.Click
        Button3_End("", System.EventArgs.Empty)
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        ListBox3.Items.Add("This Tab is not working yet.  I would like to make it scan a MP3 Library and make a customiseavle HTML page")
    End Sub
End Class
