09/11/09 15:06
Mikiwi93
Come posso integrare una funzione di download diretto?
Tipo clicco sul bottone e aprte un download diretto da windows explorer.....tipo come craagle....grazie e scusatemi del disturbo
aaa
09/11/09 18:08
GrG
per scaricare file da internet devi usare inet, se googli trovarei esempi utili...
aaa
09/11/09 21:12
Mikiwi93
Postato originariamente da GrG:
per scaricare file da internet devi usare inet, se googli trovarei esempi utili...
Ho trovato questo codice:
Dim bytes() As Byte
Dim fnum As Integer
cmdGo.Enabled = False
txtFile.Enabled = False
txtURL.Enabled = False
Screen.MousePointer = vbHourglass
DoEvents
' Get the file.
bytes() = inetDownload.OpenURL( _
txtURL.Text, icByteArray)
' Save the file.
fnum = FreeFile
Open txtFile.Text For Binary Access Write As #fnum
Put #fnum, , bytes()
Close #fnum
cmdGo.Enabled = True
txtFile.Enabled = True
txtURL.Enabled = True
Screen.MousePointer = vbDefault
Beep
Ho provato a sostituire texturl cont text1,ma mi chiedo a cosa serve il file textfile.text
Ma poi comunque inet serve per scaricare in ftp...a me servirebbe in http grazie...
Ultima modifica effettuata da Mikiwi93 09/11/09 21:23
aaa
10/11/09 16:20
GrG
sbagliato inet scarica sia ftp che http, perchè dici che non funziona che errori ti da? ricordati di rinominare il componente inet1 in inetDownload... oppure il contrario cioè modifichi il codice mettendoci inet1...
aaa
10/11/09 19:11
Mikiwi93
cmdGo.Enabled = False
Text2.Enabled = False
Text1.Enabled = False
Screen.MousePointer = vbHourglass
DoEvents
' Get the file.
bytes() = Inet1.OpenURL( _
Text1.Text, icByteArray)
' Save the file.
fnum = FreeFile
Open Text2.Text For Binary Access Write As #fnum
Put #fnum, , bytes()
Close #fnum
cmdGo.Enabled = True
Text2.Enabled = True
Text1.Enabled = True
Screen.MousePointer = vbDefault
Beep
mi dà sub or function not definied,per scegliere la directory dove si vuole scaricare il file cosa posso fare,intendo che dopo selezionato la cartella di destinazione con dirlistbox,come possoò far venire in automatico il nome con cui salvare??
Ultima modifica effettuata da Mikiwi93 10/11/09 19:16
aaa