[problem]autopatcher

[morwa123]

Witam. Zrobiłem autopatchera do swojego server i ustawilem na nim zeby pliki "locale" pobieral do folderu pack a ten biora do głownego folderu metina powie mi ktos czemu?? :

 

tutaj skrypty:

 

 

Public Class AutoPatcher
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   End Sub
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Button1.Enabled = False
    TextBox1.Text = "Proszę czekać..."
    TextBox1.Text = "Patchowanie rozpoczyna się...."
    ProgressBar1.Value = "1"
    Timer1.Start()
   End Sub
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Close()
   End Sub
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Shell("config.exe", AppWinStyle.NormalNoFocus)
   End Sub
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    ProgressBar1.Value = "2"
    'Patch.txt
    TextBox1.Text = "Patch.txt Jest Badany"
    If My.Computer.FileSystem.FileExists("patch.txt") Then
	    My.Computer.FileSystem.DeleteFile("patch.txt")
	    TextBox1.Text = "Patch.txt został usunięty"
    End If
    My.Computer.Network.DownloadFile("http://c.wrzuta.pl/wo9981/4e44d617001656574f4a19b3/patch.txt", "patch.txt")
    TextBox1.Text = "Zostały pobrane nowe pliki patch.txt"
    ProgressBar1.Value = "3"
    'Locale_pl.eix
    TextBox1.Text = "locale_pl jest badany"
    If My.Computer.FileSystem.FileExists("pack/locale_pl.eix") Then
	    My.Computer.FileSystem.DeleteFile("pack/locale_pl.eix")
	    TextBox1.Text = "Locale_PL zostało usunięte..."
    End If
    My.Computer.Network.DownloadFile("http://c.wrzuta.pl/wo5367/a5577cb0000174b64f4a0c21/locale_pl.eix", "locale_pl.eix")
    TextBox1.Text = "Nowy plik locale_pl został pobrany..."
    ProgressBar1.Value = "4"
    'locale_pl.epk
    TextBox1.Text = "locale_pl.epk jest badany."
    If My.Computer.FileSystem.FileExists("pack/locale_pl.epk") Then
	    My.Computer.FileSystem.DeleteFile("pack/locale_pl.epk")
	    TextBox1.Text = "Locale_pl zostało usunięte..."
    End If
    ProgressBar1.Value = "5"
    My.Computer.Network.DownloadFile("http://c.wrzuta.pl/wo8764/d8a6f955002645654f4a0cd8/locale_pl.epk", "locale_pl.epk")
    TextBox1.Text = "Nowe locale_pl.epk zostało dodane..."
    TextBox1.Text = "Patchowanie skończyło się pomyślnie"
    ProgressBar1.Value = "100"
    If My.Computer.FileSystem.FileExists("Divine.exe") Then
	    TextBox1.Text = "Włączam metina..."
	    Button1.Enabled = True
	    If TextBox1.Text = "Włączam metina..." Then
		    Shell("Divine.exe")
		    Me.Close()
	    End If
    Else
	    TextBox1.Text = "Twój klient jest nieodpowiedni to tej gry!"
	    TextBox1.Text = "Pobierz odpowiedniego klienta!"
    End If
    Timer1.Stop()
   End Sub
End Class