- Private Function download_file(ByVal url As String, ByVal chemin As String) As String
- Dim dl As New System.Net.WebClient() 'on crée un objet webclient
- Dim n As Long = Environment.TickCount 'cette variable n'est pas obligatoire, elle servira à deduire le temps que le téléchargement à pris
- Try
- dl.DownloadFile(url, chemin) 'la commande de telechargement de l'objet dl
- dl.Dispose() 'on libere dl
- Return "téléchargement effectué en " & ((Environment.TickCount - n) / 1000) & " secondes" 'on renvoie une string indiquant le temps de téléchargement, sous entendant par la meme occasion l'execution avec succés du téléchargement
- Catch ex As Exception
- Return ex.Message.ToString 'si il y a une erreur, on en renvoie la description
- End Try
- End Function
-
- 'Puis appelez la fonction dans une string, un texte ou un label.
- Label1.Text = download_file("http://batto.free.fr/ConsoleFileCompare.exe", "D:\ConsoleFileCompare.exe")
Private Function download_file(ByVal url As String, ByVal chemin As String) As String
Dim dl As New System.Net.WebClient() 'on crée un objet webclient
Dim n As Long = Environment.TickCount 'cette variable n'est pas obligatoire, elle servira à deduire le temps que le téléchargement à pris
Try
dl.DownloadFile(url, chemin) 'la commande de telechargement de l'objet dl
dl.Dispose() 'on libere dl
Return "téléchargement effectué en " & ((Environment.TickCount - n) / 1000) & " secondes" 'on renvoie une string indiquant le temps de téléchargement, sous entendant par la meme occasion l'execution avec succés du téléchargement
Catch ex As Exception
Return ex.Message.ToString 'si il y a une erreur, on en renvoie la description
End Try
End Function
'Puis appelez la fonction dans une string, un texte ou un label.
Label1.Text = download_file("http://batto.free.fr/ConsoleFileCompare.exe", "D:\ConsoleFileCompare.exe")