Bonjour à toutes et tous,
Je vous présente mon tutoriel qui permet de télécharger des fichiers à partir de votre hébergeur.
Il vous faut :
-1 Bouton
-1 Progress Bar
-1 Timer
-1 RichTextbox
Placez votre bouton, la progress & la RichTextBox
Sur le bouton mettez ce code :
Dim address As String = "http://votresite/setup.exe]" Me.RichTextBox1.AppendText("Recherche de mise a jour" & vbCrLf) Dim num As Integer = FileSystem.FreeFile Dim client As New WebClient Me.RichTextBox1.AppendText("Cr" & ChrW(233) & "action du contrôle client " & vbCrLf) Dim fileName As String = "config.xml" Me.RichTextBox1.AppendText("Votre config.xml a été téléchargé" & vbCrLf) Try client.DownloadFile(address, fileName) Me.RichTextBox1.AppendText("Fini " & vbCrLf) Catch exception1 As Exception End Try Me.Timer1.Enabled = False Me.Timer1.Interval = 100 Me.Timer1.Enabled = True Me.ProgressBar1.Value = 100 Interaction.MsgBox("Fichier téléchargé", MsgBoxStyle.OkOnly, Nothing)
Ne vous reste qu'à déclarer les variables ...
Cordialement , Saw