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 |
