[PROBLEM]downloader pomoc

[Maximus6545]

Public Shared Sub AutoUpdate1()
       httpclient = New WebClient
        Form1.lblStats.Text = "Status: Przygotowywanie do pobierania patcha proszę czekać ..."

        'Sets the download location and where to save the patch.zip
        Dim directory As String = System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), ".minecraft\")
        Dim link As String = "http://xxx/xxx/" & "/xxx.jar"
        'http://xxx.xaa.pl/strona/
        'http://xxx.xaa.pl/strona/

        'Start downloading the patch setup
        Try
            Form1.lblStats.Text = "Status: pobieranie paczki..."
            httpclient.DownloadFileAsync(New Uri("http://xxx/xxx/xxx.jar"), directory)
        Catch ex As Exception
            Form1.lblStats.Text = "Status: pobieranie zakończone !  "

        End Try

    End Sub

 

to jest cały kod chodzi mi o ten kod :

 

    Dim directory As String = System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), ".minecraft\")
 

on jest jakiś nie prawidłowy bo mi pobierać nic nie chce, pomożecie ? sypnę max like !

[Maximus6545]

Pomoże ktoś ??

[Sunnyline2]

Max like przez 7 dni :P

 

private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim msg
            msg = MsgBox("Wszystkie dane, z minecrafta zostaną usunięte." + vbNewLine + "Zrób kopie savów i kontynuuj." + vbNewLine + "Upewnij się :)", vbYesNo, "Pytanie")
            Select Case msg
                Case 6 'tak
                    AddHandler client.DownloadProgressChanged, AddressOf client_ProgressChanged
                    AddHandler client.DownloadFileCompleted, AddressOf client_DownloadCompleted
                        client.DownloadFileAsync(New Uri(adrespobrania), nazwa_aktualizacji)
                    End If
                Case 7 'nie
            End Select
        Catch ex As Exception
            MsgBox("Bład podczas pobierania aktualizacji.")
            Label5.Text = "Wystąpił problem podczas pobierania aktualizacji, spróbuj ponownie"
        End Try
    End Sub

    Private Sub client_ProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
        Dim bytesIn As Double = Double.Parse(e.BytesReceived.ToString())
        Dim totalBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString())
        Dim percentage As Double = bytesIn / totalBytes * 100
        ProgressBar1.Value = Int32.Parse(Math.Truncate(percentage).ToString())
    End Sub
    Private Sub client_DownloadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
       MsgBox("Pobrano")
    End Sub

[Maximus6545]

Dzięki !