api – Comment télécharger un fichier en utilisant VBA (sans Internet Explorer)


Declare PtrSafe 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

Sub Example()
    DownloadFile$ = "someFile.ext" 'here the name with extension
    URL$ = "http://some.web.address/" & DownloadFile 'Here is the web address
    LocalFilename$ = "C:SomePath" & DownloadFile !OR! CurrentProject.Path & "" & DownloadFile 'here the drive and download directory
    MsgBox "Download Status : " & URLDownloadToFile(0, URL, LocalFilename, 0, 0) = 0
End Sub

La source

J’ai trouvé ce qui précède lors de la recherche d’un téléchargement à partir de FTP avec le nom d’utilisateur et l’adresse dans l’URL. Les utilisateurs fournissent des informations, puis effectuent les appels.

Cela a été utile car notre organisation dispose de Kaspersky AV qui bloque active FTP.exe, mais pas les connexions Web. Nous n’avons pas pu développer en interne avec ftp.exe et c’était notre solution. J’espère que cela aidera d’autres personnes à la recherche d’informations!

Nous serions ravis de connaître votre avis

Laisser un commentaire