GetFileVersion

[Sublime]

Welp..... I think it is just me or something but I am trying to make a simple script to see if there is an updated version of the antivirus installer before continuing with the install. Here is the code I used to test the results for the FileGetVersion

$file3 = FileGetSize("http://consumerdownloads.ca.com/consumer/apps/iss3_en.exe")
MsgBox(0, "test", $file3)

Here is the actual function I am using

Func CAISS2007_Installer_Full_Version()
    $file1 = FileGetVersion(".\iss3_en.exe")
    $file3 = FileGetVersion("http://consumerdownloads.ca.com/consumer/apps/iss3_en.exe")
    Select
        Case $file1 = $file3
            CAISS2007_Installer_Full()
        Case $file3 = "0.0.0.0"
            CAISS2007_Installer_Full()
        Case $file1 <> $file3 And $file3 <> "0.0.0.0"
            $NewVersionFull = MsgBox(3, "Udated Installation File", "There is a newer installation file out would you like to download it? If you would like to continue without updating press 'NO'.")
    EndSelect

It is not exactly a finished function but I do not like to continue things unless it works up to the point I am at.

Anywho the problem is that no matter what the my $file3 result always comes back '0.0.0.0'

Anyone have a way to fix this or a workaround?

Edited April 13, 2007 by Sublime

[MrCreatoR]

Hi,

You are trying to get size of file from internet?! using FileGetSize?!

First you must download it, and then check it, if you want to check the size, then try InetGetSize()... but to check the version on http, i don't think that is possible.

[Sublime]

.... well that might be the problem........ well I think I may be just a tid bit tired O_o I think it is time to get some sleep and takle this in the morning

[blakel]

you could use something like this

InetGet("http://consumerdownloads.ca.com/consumer/apps/",@TempDir & "\tmp.txt",1)
$line = StringRegExp(FileRead(@TempDir & "\tmp.txt"),"(?m)iss3_en.exe(.*)M(?m)",2)
$line = StringRegExp($line[0],"\d\d.*(?m)",2)
$line = StringSplit(StringStripWS($line[0],7)," ")
MsgBox(0,"test",$line[1] & " " & $line[2] & " " & $line[3])
FileDelete(@TempDir & "\tmp.txt")