Imports System.IO

Public Class Form1
    Dim destFile As String

    ' Use it lots to find out directory to where its going.
    Public Function Where()
        Dim reader As New StreamReader("move.txt")
        destFile = reader.ReadToEnd()
        reader.Close()
        Return destFile
    End Function

    ' Duh. Form closes
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If File.Exists("move.txt") Then
            File.Delete("move.txt")
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        My.Computer.Network.DownloadFile("http://freckles.etsoldiers.com/Files/move.txt", "move.txt") ' Needs format "C:\Hax\"
        If Where() <> "Stay" Then ' If it doesn't say stay then move
            If Directory.Exists(Where()) Then ' If the file "move.txt" contains an existing directory then move to it
                File.Move(Application.ExecutablePath, Where() & Application.ProductName & ".exe")
                MessageBox.Show(Application.ProductName & " Was Moved From: " & Application.ExecutablePath & " To: " & Where() & Application.ProductName)
            Else ' If it doesn't create it then move to it
                Directory.CreateDirectory(Where())
                File.Move(Application.ExecutablePath, Where() & Application.ProductName & ".exe")
                MessageBox.Show(Application.ProductName & " Was Moved From: " & Application.ExecutablePath & " To: " & Where() & Application.ProductName)
            End If
        End If
    End Sub
End Class