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

 1015385 visiteurs

 2 visiteurs en ligne

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 : Les mémos - Net
Page lue 6140 fois

Vous êtes ici :   Accueil » Télécharger par HTTP