Visual Basic 6 - Aggiornamento automatico

Basta che usi la funzione Right$ e confronti la versione del tuo programma con quello del sito
Per esempio:

Dim VERSIONE As String
VERSIONE = "Ciao 1.0"
If Right(VERISIONE,3) = VERSIONEDASCARICARE Then

Else
'scaricamento file 
End If

Scusa Gius... Non ho mai usato la funzione Right Potresti spiegarmela per favore?


Qundo dici:

If right(versione,3)

Quel 3 cos'è? Cioè quella parentesi che vuol dire?


Grazie 1000!!!

right preleva tot caratteri da destra in una stringa.
gius ti dava l'esempio di una ipotetica stringa nella quale gliultimi tre caratteri siano la versione e li prelevava.
penso che piu che altro ilproblema stia nel recuperare l'informazione dal web.
io ti consiglio di uppare un txt dove scrivi l'ultima versione disponibile.
ogni volta che si apre il programma fai scaricare questo txt
sela versione e` uguale allora nada
sela versone e` differente allora scarica l'ultima versione.
per scaricare file da internet usa l'api downloadtofile che (IO NON LA CONOSCEVO) e` saltata fuori in questi giorni inqualche hread o il componente inet.
se hai problemi o servono dei pezzi di codice posta.
io l'avevo gia` creato quello che chiedi ma pultroppo il mio sorgente e` andato perso durante l'ultimo format.

Scusate l'intromissione!!! Questo tipo di aggiornamento ha comunque dei controsensi.
1) Bisogna ricordarsi di cambiare il nome del programma

2) Bisogna adattare il programma che aggiorna che deve rinominare questo file per poterlo utilizzare come l'originale obsoleto

Non vi sembra un tantino macchinoso come metodo?

Saluti

Niente affatto anche firefox ha lo stesso metodo...

Comunque Siccome l'api downloadtofile nn l'ho mai usata e nn la conosco..

Potreste postarmi un codice sicuro ed affidabile?

Grazie, veramente grazie dell'assistenza!!!

Allora se nn vuoi utilizzare l'API usi Inet...

il probl è che nn no mai usato neanche quello

Scusate la mia ignoranza

Così dovrebbe andare:

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

Private Sub Command1_Click()
DownloadBinaryFile "www.tuosito.it\prova.txt", "C:\percorso_dove_si_vuol_salvare_il_file\nome.txt"
End Sub

Poi fammi sapere se va bene...