Visual Basic 6 - Aprire download file

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

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...

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...

Quindi verrebbe:

txtURL = Text1
inetDownload = Inet1
    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

ma mi chiedo a cosa serve txtFile.txt..e questo programma mi serve per scaricare vari file,non testi..ed anche un'altra cosa, nelle propietes di inet va bene come protocol icCHTTP??

E' una textbox di nome txtFile che indica il percorso e il nome del file da salvare esempio: "C:\imgEsempio.jpg"


Si, tranquillo ti scarica tutti i file in binario, in poche parole puoi scaricare di tutto (anche se non so in quanto a grandezza se ci siano dei limiti, forse per file troppo grossi vb non li riesce a gestire)


mi pare di si, visto che usi il protocollo http...

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??

allora prima di tutto vb6 quale riga ti evidenzia? quindi qual'è la riga incriminata?

per selezionare il percorso in cui salvare il file basta che metti nell'evento change del dirbox:
text1.text = dir1.path

per ricavare il nome del file che stai scaricando devi crearti una tua funzione, in linea teorica:

tu scarichi ad esempio sito.it.com/…

devi ricavarti file.exe per farlo con instr() trovi l'ultimo "/" poi selezioni tutto quello che c'è dopo ossia file.exe...