Would this work for you?
code:
function ArrayGetFileVersion($sFile)
  dim $a[12], $b[12], $c
  $a='Comments','CompanyName','FileDescription','FileVersion','InternalName',
'Language','LegalCopyright','LegalTrademarks','OriginalFilename','PrivateBuild',
'ProductName','ProductVersion','SpecialBuild'
  if exist($sFile)
    for $c=0 to ubound($a)
      $b[$c]=getfileversion($sFile,$a[$c])
    next $c
  else
    exit 2
  endif
  $ArrayGetFileVersion=$b
endfunction


[ 23. April 2003, 18:20: Message edited by: sealeopard ]
_________________________
There are two types of vessels, submarines and targets.