如何获取文件的版本信息.txt

VB技巧问答10000例 VB技巧问答10000例

目 前 的 FSO不 支 持 文 件 的 版 本 信 息 ， 所 以 只 能 使 用 API函 数 。 与 此 相 关 的 Windows API都 包 含 在 version.dll中 ， 在 Win32api.txt中 包 括 了 所 需 的 所 有 Visual Basic声 明 。 读 取 一 个 可 执 行 文 件 的 版 本 信 息 首 先 要 调 用 GetFileVersionInfoSize来 获 取 指 定 的 文 件 中 版 本 信 息 的 大 小 。 如 果 这 个 函 数 返 回 0， 通 常 说 明 这 个 文 件 中 不 包 含 版 本 信 息 。 如 果 该 文 件 中 包 含 版 本 信 息 ， 就 可 以 使 用 GetFileVersionInfo来 读 取 版 本 信 息 。 接 着 使 用 VerQueryValue函 数 来 从 获 得 的 版 本 信 息 中 得 到 进 一 步 的 内 容 。 这 个 函 数 的 定 义 如 下 ： 
    Declare Function VerQueryValue Lib "version.dll" Alias _ 
     "VerQueryValue" (pBlock As Any, ByVal lpSubBlock As String, _ 
     ByVal lplpBuffer As Long, puLen As Long) As Long 
    其 中 ， pBlock是 利 用 GetFileVersionInfo得 到 的 版 本 信 息 ， lpSubBlock是 一 个 字 符 串 ， 它 说 明 你 想 知 道 的 具 体 的 版 本 信 息 内 容 ， 如 ： \VarFileInfo\Translation代 表 语 言 版 本 。 
<END>