getting file version

[langals]

Hi there

I am wanting to get the version number of a file. I am currently using the FileSystemObject. It works great, but I would rather not package scrrun.dll with my application. Is there any way to get version information without having to rely on scrrun.dll?

Many thanks

langals

[Static]

This is a bit of code I found a while back:
you will have to mess with it to make it work for just one file
it currently loops through a directory and adds info to a textbox

Dim arrHeaders(41)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("c:\")
For i = 0 To 40
    arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)
Next
For Each strfilename In objFolder.Items
    If objFolder.GetDetailsOf(strfilename, 2) <> "File Folder" Then 'Skips Folders
    For i = 0 To 40
        Text1 = Text1 & i & " - " & arrHeaders(i) & ": " & objFolder.GetDetailsOf(strfilename, i) & vbCrLf
    Next
    End If
Next

I think # 37 or #39 that comes out is the version number