[VB6] Download di files

[xxcopyxx]

Salve a tutti, vorrei sapere come posso fare in modo che al caricamento di una form essa controlla se c'è un file sul web, se c'è, lo scarica nella sua stessa cartella, se invece non c'è passa alla form successiva!
Mi servirebbe il codice, grazie.
Ho già chiesto in altri forum e mi hanno parlato di "INET" ma non so cosa sono e come usarli, aggiungo il componente, e poi? Grazie!

[MItaly]

Cerca Inet nel forum, ne abbiamo parlato molte volte.

[xxcopyxx]

Scusa mi puoi aiutare qua? Ho già cercato ma non capisco niente...

[gibra]

http://allapi.mentalis.org/apilist/U...adToFile.shtml

Ciao

[xxcopyxx]

sinceramente quella pagina non la capisco scusa, e poi è VB4 credo!

[MItaly]

È per VB4, VB5 e VB6; cosa non capisci? In quella pagina è riportata la dichiarazione di una API che ti consente di scaricare file da internet. Puoi semplificarti la vita usando quella API tramite una funzione che ho scritto (link).

[oregon]

Originariamente inviato da xxcopyxx
sinceramente quella pagina non la capisco scusa, e poi è VB4 credo!

Se non la capisci, forse c'e' un problema serio di fondo ... probabilmente questo progetto va un po' oltre le tue attuali conoscenze e capacita' di programmazione ...

Non so quale sia la soluzione giusta ma ne vedo poche ... puoi rinunciare (non e' una soluzione), ti metti d'impegno e studi tutte le varie parti (API ...), ti fai scrivere tutto il codice da qualcuno ...

[xxcopyxx]

Ho provato quel codice ma non va, non potete darmi semplicente il codice da mettere nel modulo e l'altro da mettere per private form load?
P.S: io vorrei che salva i files nella stessa cartella del programma e quindi non devo mettere tipo C:\
Bo, HELP

[xxcopyxx]

ho provato quel codice che dicevo era per VB4
Ho messo questo nel modulo

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function

e questo nel form:

Private Sub Form_Load()
    DownloadFile "link del mio file", "C:\Utenti\Ufficio\Desktop"
End Sub

Clicco play, si apre il form normalmente ma non mi scarica nulla

[oregon]

Non solo la cartella in

"C:\Utenti\Ufficio\Desktop"

ma anche il nome del file locale

Per esempio

"C:\Utenti\Ufficio\Desktop\tuofile.txt"