>> Public Sub GetFile(ByVal fName As String, ByVal ftpPath As String, ByVal locPath As String) >> Dim client As New WebClient >> AddHandler client.DownloadFileCompleted, AddressOf DownloadFileComplete >> ' Specify a progress notification handler. >> AddHandler client.DownloadProgressChanged, AddressOf DownloadProgress >> Try >> client.Credentials = New NetworkCredential("upgrades", "jamboree8035") >> >> client.DownloadFileAsync(UriPath, locPath) >> Finally >> 'Response.Redirect("default.aspx") >> End Try >> End Sub >> >> Public Sub DownloadFileComplete(ByVal sender As Object, ByVal e As DownloadDataCompletedEventArgs) >> Response.Redirect("~/default.aspx") >> End Sub >> >> Sub DownloadProgress(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) >> Me.Label1.Text = e.ProgressPercentage.ToString >> End Sub >> >> Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click >> Dim client As New WebClient >> client.CancelAsync() >> client.Dispose() >> End Sub >>>>