-
Jun 20th, 2007, 05:50 AM
#1
Thread Starter
Addicted Member
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!?!
Last edited by Hack; Jun 20th, 2007 at 07:09 AM.
Reason: Fixed code tags
-
Jun 20th, 2007, 05:57 AM
#2
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: #.#.# ?
_____________________________________________________________________
----If this post has helped you. Please take time to Rate it.
----If you've solved your problem, then please mark it as RESOLVED from Thread Tools.
-
Jun 20th, 2007, 06:00 AM
#3
Re: Updater code problem
Post the value of latest_version and this_version
Please mark you thread resolved using the Thread Tools as shown
-
Jun 20th, 2007, 06:50 AM
#4
Thread Starter
Addicted Member
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!
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|