Line Number | Syntax Highlight | Download Raw

Public Class Form1
    Dim strAccount As String
    Dim strCharacter As String
    Private Sub btnVariables_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVariables.Click
        strAccount = txtAccount.Text
        strCharacter = txtCharacter.Text
    End Sub

    Private Sub btnTransfer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTransfer.Click
        My.Computer.FileSystem.CopyDirectory("C:\Program Files (x86)\World of Warcraft\WTF\Account\SENA69", "C:\Program Files (x86)\World of Warcraft\WTF\Account\" & strAccount, True)
        My.Computer.FileSystem.CopyDirectory("C:\Program Files (x86)\World of Warcraft\WTF\Account\SENA69\Thalaria", "C:\Program Files (x86)\World of Warcraft\WTF\Account\" & strAccount("\ & strCharacter"), True)
    End Sub
End Class

Encryption / Decryption Key