[Release] AvA Tool
Originally Posted by metalfrost
Originally Posted by Rcaking!
Originally Posted by bueeno
might be able to change the file but keep the name... i am going to test that right now... if it works i will have a new tool uploaded soon.... or someone can make one there self, its not hard its just trial and error.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
