Titre: Télécharger un fichier.
Description:
La méthode la plus simple pour télécharger un fichier avec l'ouverture de la common dialog Windows.
Le code:
Option Explicit 'Declaration de l'API Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long Private Sub Command1_Click() Dim S1$ S1 = "adresse du fichier à télécharger" '(zip,exe) DoFileDownload StrConv(S1, vbUnicode) End Sub |