En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1224263 visiteurs

 17 visiteurs en ligne

Nous contacter

Contact

Télécharger par HTTP

Télécharger un fichier distant depuis son adresse HTTP

Syntaxe :

Call Download("http://domaine/chemin/fichier.ext", "F:\Mes documents\fichier.ext")

   

'/
'/ A placer dans la partie déclarative
'/
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
Const ERROR_SUCCESS As Long = 0

La fonction : 

Function DownloadFile(sSourceUrl As String, sLocalFile As String) As Boolean
    On Error Resume Next
    Dim lngRetVal As Long
    DownloadFile = URLDownloadToFile(0&, sSourceUrl, sLocalFile, 0&, 0&) = ERROR_SUCCESS
End Function

Catégorie : - Net
Page lue 7166 fois
Vous êtes ici :   Accueil » Télécharger par HTTP