[Release] AvA Tool

Option Explicit On
Imports System.IO
Public Class Form1
    Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        System.Threading.Thread.Sleep(35)
        Dim Location1 As String
        Dim Location2 As String
        Location1 = FolderDialog.SelectedPath + "\ENGLISH\AVA\avagame\Video"
        Location2 = FolderDialog.SelectedPath + "\ENGLISH\AVA\avagame\Splash"
        If CheckBox1.Checked = True Then
            On Error Resume Next
            My.Computer.FileSystem.RenameDirectory((Location1), "ExVideo")
        End If
        On Error Resume Next
        If CheckBox2.Checked = True Then
            My.Computer.FileSystem.RenameDirectory((Location2), "ExSplash")
        End If
       
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Folder.Text = FolderDialog.SelectedPath
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

    End Sub


    Private Sub FolderDialog_HelpRequest(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FolderDialog.HelpRequest

    End Sub

    Private Sub Folder_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Folder.Click
        FolderDialog.ShowDialog()
        Folder.Text = FolderDialog.SelectedPath
    End Sub

    Private Sub Folder_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Folder.TextChanged

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

    End Sub

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub
    
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class