VB6 得到exe的文件信息，子程序 f_GetFileVerInfo，比如：版本号、产品名称、公司名称、版权信息和文件描述
发表于 2024年11月19日 17:28
新建From1（窗体），新建Command1（按钮CommandButton），代码：
返回列表Private Sub Command1_Click()
Dim strFN As String
strFN = "C:\windows\notepad.exe"
Debug.Print f_GetFileVerInfo(strFN)(0) '版本号
Debug.Print f_GetFileVerInfo(strFN)(1) '产品名称
Debug.Print f_GetFileVerInfo(strFN)(2) '公司名称
Debug.Print f_GetFileVerInfo(strFN)(3) '版权信息
Debug.Print f_GetFileVerInfo(strFN)(4) '文件描述
End Sub新建模块 modFileInfomation.bas，代码：
运行结果：
10.0.19041.1 (WinBuild.160101.0800)
Notepad
Microsoft Corporation
? Microsoft Corporation. All rights reserved.
记事本