17/02/08 0:51
gantonio
Qualcosa del genere
Dim inet As Object
Dim bData( ) As Byte
Dim intFile As Integer
Dim urlDownload As String
Dim localFile As String
urlDownload = "http://www.x.it/file.txt"
localFile = "C:\file.txt"
intFile = FreeFile()
Set inet = CreateObject("InetCtls.Inet")
bData() = inet.OpenURL(urlDownload, icByteArray)
Open localFile For Binary Access Write As #intFile
Put #intFile, , bData()
Close #intFile
Set inet = Nothing
Ultima modifica effettuata da gantonio 17/02/08 0:52
aaa
18/02/08 22:49
gecko6989
Ma nn mi serve x scaricare solo i file di testo....
mi serve x scaricare qualsiasi tipo di file.
-----------------------------------------------------
Diciamo che ho trovato una soluzione inserendo il controllo ActiveX del WebBrowser ed ho utilizzato "Navigate"...insomma metodo alternativo ma + semplice decisamente
-----------------------------------------------------
[edit] usate il pulsante per editare. [/edit]
Ultima modifica effettuata da Shutdown 19/02/08 19:34
aaa