Quote:
|
Originariamente inviato da Massi91
buongiorno a tutti 
volevo chiedervi come si può fare a trasferire file, per esempio, immagini, da internet a locale tipo da "www.sito.it/immagine1.jpg" a "C:/", se avete qualche straccio di codice concreto che funzioni realmente tanto meglio perchè con internet e vb combinati sono proprio negato 
grazie in anticipo  |
metti un controllo Inet sul form (aggiungilo da componenti)
-------------code-------------------
'global in generali
Dim strURL As String
Dim bit() As Byte
Dim nominativo As String
'Command1
strURL = "http://tuosito/" & "tuofile.jpg": nominativo = "tuofile.jpg"
bit() = Inet1.OpenURL(strURL, icByteArray)
' il file lo crea nella dir del progetto
Open nominativo For Binary Access Write As #1
' il file lo crea nel percorso specificato
'Open "c:\" & nominativo For Binary Access Write As #1
Put #1, , bit()
Close #1
--------end code--------------------
ciao