Visual Basic 6 - Command button download

Forum - Visual Basic 6 - Command button download

gecko6989 (Normal User)
Pro

Messaggi: 64
Iscritto: 05/06/2007

Postato alle 1:35
Domenica, 17/02/2008

Voglio creare un command button che dato l'indirizzo di un file in internet (ex: http://www.google.it/pierotofy.zip) mi salvi sull'hard disk il file

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 1:51
Domenica, 17/02/2008

Qualcosa del genere

Codice sorgente - presumibilmente VB.NET

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 il 17/02/2008 alle 1:52

gecko6989 (Normal User)
Pro

Messaggi: 64
Iscritto: 05/06/2007

Postato alle 23:49
Lunedì, 18/02/2008

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 il 19/02/2008 alle 20:34

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 0:37
Martedì, 19/02/2008

Testo quotato

Postato originariamente da gecko6989:

Ma nn mi serve x scaricare solo i file di testo....
mi serve x scaricare qualsiasi tipo di file.

Il file di testo era un esempio ... hai provato con altri tipi di file ?