Declare Function GetFileVersionInfoSize Lib "version.dll" Alias "GetFileVersionInfoSizeA" ( _ ByVal lptstrFilename As String, lpdwHandle As Long) As Long
GetFileVersionInfoSize определяет размер ресурса информации о версии, хранимой в 32-битном исполняемом файле. Сама информация о версии файла извлекается при помощи GetFileVersionInfo
В успешном случае возвращается размер в байтах информации о версии файла. В случае ошибки возвращается 0 (используйте GetLastError для получения кода ошибки)
Dim retval As Long retval = GetFileVersionInfoSize("c:\windows\notepad.exe", 0) Print retval