-
Updater code problem
Hi everyone!
I can't understand what's wrong with this code..
Code:
Private Sub Form_Load()
Dim latest_version As String
Dim this_version As String
latest_version = Inet1.OpenURL("http://manu6.manufrog.com/~intethin/eva/version.txt")
this_version = "001"
MsgBox latest_version
MsgBox this_version
If latest_version <> this_version Then
MsgBox "New update is available!"
End If
End Sub
My problem is that the MsgBox with "New update is available!" never show up...why!?! :confused:
-
Re: Updater code problem
Try:
Code:
Dim latest_version As String
Dim this_version As String
latest_version = Inet1.OpenURL("http://manu6.manufrog.com/~intethin/eva/version.txt")
this_version = app.major & "." & app.minor & "." & app.revision
if not latest_version <= this_version then msgbox "Update Available"
Also whats inside Version.txt? Imean how is it formatted ? is it: #.#.# ?
-
Re: Updater code problem
Post the value of latest_version and this_version
-
Re: Updater code problem
I switched my code to yours, some1uk03, since it's smaller.
But it still didn't work..it said that an update always was available, then I realized that the problem was in the declaration.
It should be Double variables, not String.
Now it works! Thx!