1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| ' adresse de la page ou du fichier à récuperer
Dim REMOTE_URL As String = ConfigurationManager.AppSettings("balance_url") & "/" & idStructure & "/balance.txt"
Dim WEB_CLIENT As New System.Net.WebClient()
Dim DNL_FILE As String = ConfigurationManager.AppSettings("balance_repository")
Me.lblErreur.Text = REMOTE_URL & "<hr />"
Me.lblErreur.Text &= DNL_FILE & "<hr />"
Dim downloadURI As New Uri(REMOTE_URL)
Try
WEB_CLIENT.DownloadFile(downloadURI, DNL_FILE)
Catch ex As Exception
Me.lblErreur.Text &= "ERREUR : téléchargement impossible : " & ex.Message & "<hr />"
Me.lblErreur.Visible = True
Exit Sub
End Try
Me.lblErreur.Text = "Création et téléchargement du fichier balance réussi. Vous pouvez vérifier le fichier dans " & DNL_FILE
Me.lblErreur.ForeColor = Drawing.Color.Green
Me.lblErreur.Visible = True |
Partager