Télécharger un fichier à partir d'une url http

Commenter

Contenu du snippet

Ce code est une api trouvée sur le Net (donc je n'en sui pas l'auteur, j'ai juste fait l'exemple). Trouvant cette fonction simple et utile et ne l'ayant pas vu sur Vbfrance, je me permet de l'ajouter ici.
Fonction qui permet de télécharger un fichier hébergé sur un site, afin de pouvoir l'exploiter dans son application vb.

Dans cet exemple illustrant la syntaxe de cette api, j'utilise la fonction pour récupérer une image d'un site internet afin de l'afficher dans un picturebox de mon projet vb.

Source / Exemple : 


'API de telechargement - A mettre dans les déclarations de var
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
    "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
    ByVal szFileName As String, ByVal dwReserved As Long, _
    ByVal lpfnCB As Long) As Long

'A mettre dans votre Form:

Dim errcode As Long
Dim url As String
Dim localFileName As String

'On spécifie le chemin de l'image web
url = "http://www.siteweb.com/image.jpg"
'On spécifie le chemin ou l'on veut enregistrer ce fichier
'(vb.app.path donne le chemin du dossier de l'appli vb)
localFileName = VB.App.Path & "\image.jpg"

'On appelle la fonction api de téléchargement
errcode = URLDownloadToFile(0, url, localFileName, 0, 0)

If errcode = 0 Then

'Message de confirmation que l'image a bien été téléchargée
    'MsgBox "Fichier bien reçu"
    'Comme on a bien reçu l'image on peut la charger
    picture1 = VB.LoadPicture(localFileName)

Else

'Sinon on affiche le message d'erreur
    'MsgBox "Erreur durant le téléchargement"

End If

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (bobjay)