Private Sub Command1_Click() ' source Dim sUrl As String sUrl = "http://blogs.developpeur.org/images/blogs_developpe" & _ "ur_org/nix/491/o_CodyxWallpaper6.jpg" ' destination (app.path + nom du fichier distant) Dim sDest As String sDest = App.Path If RightB$(sDest, 2) <> "\" Then sDest = sDest & "\" sDest = sDest & Right$(sUrl, Len(sUrl) - InStrRev(sUrl, "/")) ' download Dim aBytes() As Byte, FF As Integer With Inet .AccessType = icUseDefault .Protocol = icHTTP aBytes = .OpenURL(sUrl, icByteArray) Do Until Not (.StillExecuting) DoEvents Loop End With ' écriture disque FF = FreeFile Open sDest For Binary Access Write As FF Put #FF, , aBytes() Close FF Erase aBytes MsgBox "Terminé" End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.