Hi all,

I am trying to determine the version of Windows Installer using VB6. I copied the API calls code into a module, and then made the following code in Form_Load:

file = "C:\WINDOWS\System32\msiexec.exe"
Size = GetFileVersionInfoSize(file, 0)
MsgBox "size = " & Size
version = GetFileVersionInfo(file, 0, Size, 10)
MsgBox "version = " & version

The code doesn't crash uptill "version = ......". I am wondering why my code crashes (i consider a VB6 crash as a code crash, since it happens when running the code)
Also, the filesize of the file is 77KB, though my messagebox says 2324 (KB, Bytes, Bits????). Not sure this is correct either.

Any tips, or preferably solutions are very welcome!

Thanks
Max

Hello Max

For getting the version of the file, try this

(Make a reference to the Scripting Runtime scrrun.dll)
Dim fso As New FileSystemObject
MsgBox (fso.GetFileVersion("C:\WINNT\system32\msiexec.exe "))

I get a msgbox with version 2.0.2600.1183.

I guess i understood your problem and this is the alternate
for getting the file version

Hope this helps

With Regards,
Raghavendra Mudugal

Hi Raghavendra Mudugal,

I tried your code, after setting a reference, and it worked perfectly.

Thank you very much

Max

Hello guys, that's a great tip, but does it only find the version of Windows?
I'm trying to find the version of .exe files using VB6.
Any help?
Thanks
Ahmad