Visual Basic 6 - Scaricare file da internet solo se c'è un aggiornamento

Ciao a tt, ho provato con il tasto search ma niente, volevo saprere una cosa:
è possibile creare 2 form:
nella form1 è quella che devo spiegarvi cosa volgio fare
nella form2 metto il programma

io vorrei fare che nella form 2 c'è un codice che se rileva l'aggiornamento, sul sito dove lo ho hostato, lo scarica; se invece non c'è passa direttamente al form2 senza nemmeno far visualizzare la 1.

è possibile?? ciao

si che è possible
dovresti usare il componente inet
una volta per verificare le prensenza dell' aggiornamento
e una seconda volta per scaricare il file aggiornato

non sono praticissimo di vb6, conosco solo i modi x fare i programmi + semplici e nn ho mai sentito parlare di qst componente. ho fatto ora una ricerca rapida anke su qst sito e ho trovato un topic solo su inet ma nn ho capito molto.

il codice sarebbe così: Inet1.Execute e poi l'url del file ke deve essere scaricato e dopo metto, se non c'è upload, form2.show??

siate pazzienti cn me ho anko molto da imparare

x scaricare un file con inet:

Public Sub DownloadBinaryFile(strSourceFile As String, strDestinationFile As String)
'Parametri input:
'strSourceFile: URL del file completo del nome
(es."www.miosito.xxx\zippato.zip")
'Parametri output
'strDestinationFile : Percorso e nome del file da salvare
Dim bytInputData() As Byte
Dim IntNumberFile As Integer
bytInputData() = inet1.OpenURL(strSourceFile, icByteArray)
IntNumberFile = FreeFile
Open strDestinationFile For Binary As #IntNumberFile
Put #IntNumberFile, , bytInputData()
Close #IntNumberFile
End Sub 

grz cmq vb6 mi dà errore mi sà ke è meglio ke lascio perdere. Io metto così il codice:

Public Sub DownloadBinaryFile(strSourceFile As String, strDestinationFile As String) 
'Parametri Input: 
strSourceFile: ("www.miosito.dsa/file.exe")
'Parametri Output 
strDestinationFile: ("C:\Programmi\Vari")
Dim bytInputData() As Byte 
Dim IntNumberFile As Integer 
bytInputData() = inet1.OpenURL(strSourceFile, icByteArray) 
IntNumberFile = FreeFile 
Open strDestinationFile For Binary As #IntNumberFile 
Put #IntNumberFile, , bytInputData() 
Close #IntNumberFile 
End Sub 

eppure mi da errore nella parte dove metto il link.

Ho visto ke nel codice hai messo:

'Parametri Input:
strSourceFile: ("miosito.dsa/…
'Parametri Output
strDestinationFile: ("C:\Programmi\Vari"

invece sn commenti cioè:

'Parametri Input:
'strSourceFile: ("miosito.dsa/…
'Parametri Output
'strDestinationFile: ("C:\Programmi\Vari"

Se ti da errore in qualkosa cmq specifica cosa ti dice...

ora almeno nn mi da + errore in quella parte mi dice solo errore se lascio la scritta del button:

Private sub command1()
end sub

xò io volevo metterlo in un button o direttamente nella form. cmq esiste anke il metodo ke fa automaticamente sovrascrivere il file nuovo dell'update su quello vekkio??

Non ho capito dove sta l'errore e poi ti avevo detto di dirmi cosa ti dice vb...

bè penso che se esiste già un file con lo stesso nome lo sovrascrive automaticamente...