Dounej
Messages postés28Date d'inscriptionjeudi 28 décembre 2006StatutMembreDernière intervention 7 avril 2007
-
5 avril 2007 à 16:06
dbh2000dz
Messages postés2Date d'inscriptionsamedi 8 mars 2008StatutMembreDernière intervention13 février 2010
-
13 févr. 2010 à 16:55
Bonjour,
Comment puis-je télecharger un fichier Zip d'une page internet ?
je sais me rendre sur la page sans difficulté
(le code suivant fonctionne très bien)
mais
comment faire pour récupérer le Zip ?
Manuellement il suffit de cliquer dessus !
oui mais avec un programme VB ????
Mon code pour aller sur la page ,
comment le compléter pour récupérer le Zip ???
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
Private Sub telechargement()
Dim errcode As Long
Dim url As String
Dim localFileName As String
url = "
http://www.adresse du site"
localFileName = VB.App.Path & "\mon fichier de stockage"
l'idée est bonne, car lorque je rajoute l'extension que tu me proposes j'ai bien un Zip de créer dans mon dossier de destination, mais avec un poids très inférieur et lorsque j'essaie de le décomprésser voici le message :
"Signature de fin de répertoire central non trouvée. Soit ce fichier n'est pas un fichier Zip, soit il constitue un disque d'une archive multi-volume."