vb6获得程序版本号

在VB6（Visual Basic 6）中，获取程序版本号通常是在项目设置里完成的。你可以通过以下步骤找到它：

1. 打开你的VB6应用程序。
2. 点击“文件”菜单，选择“属性”（或右键点击工程图标，选择“属性”）。
3. 在弹出的“工程属性”窗口中，找到并展开“常规”选项卡。
4. 在“常规”标签下，你会看到名为“产品版本”或“Version”的字段，这就是你的程序版本号。

如果你需要在运行时动态获取这个信息，可以使用`vbProject.VBProject.ProgID`获取项目ID，然后通过`CreateObject`函数创建对象，调用其`Properties`属性来查找特定的属性，如"Version"。例如：

Dim proj As Object
proj = CreateObject("VBIDE.VBProject", "YourProjectName")
Dim version As String
version = proj.Properties.Item("Version").Value

这里`YourProjectName`需要替换为你实际的项目名称。

相关问题

我在用VB6.0做一些程序 ，我需要得到\\192.168.88.30\共享文件夹\NewHESS.exe这个可执行文件 的版本号，请写一下VB6.0代码

在VB6.0中，你可以使用Microsoft Scripting Runtime库中的FileSystemObject来访问网络文件并获取其属性，包括可执行文件的版本信息。但是请注意，由于Windows API并不直接提供获取文件版本号的功能，通常通过读取文件头或使用第三方工具来间接获取。这里假设你知道如何检查PE头部来获取基本的EXE文件信息。以下是一个简单的示例，它尝试打开文件然后打印出一些基础信息，这可能不是最准确的版本号获取方式：

Option Explicit

Dim fso As FileSystemObject
Dim file As TextStream
Dim fileName As String
Dim versionInfo As Variant '存储可能存在的Version Info数据

fileName = "\\192.168.88.30\共享文件夹\NewHESS.exe"
Set fso = New FileSystemObject
Set file = fso.OpenTextFile(fileName, 1) '打开文件

'尝试查找是否有PE文件头
On Error Resume Next '捕获可能的错误
If Mid(file.Read, 4, 2) = "MZ" Then
    '如果找到了，读取PE头部可能会有部分版本信息，如Subsystem Version（Subsystem Type标识符）
    Dim peHeaderOffset As Long, subsystemVersionOffset As Long
    peHeaderOffset = 60
    subsystemVersionOffset = peHeaderOffset + 4 '位于DOS Header后
    If Not IsError(file.ReadInteger(subsystemVersionOffset)) Then
        Debug.Print "Found potential subsystem version: " & Hex$(file.ReadInteger(subsystemVersionOffset))
    Else
        Debug.Print "Failed to read PE header"
    End If
Else
    Debug.Print "Not a valid executable or unable to detect PE header."
End If

'关闭文件流
file.Close
Set file = Nothing
Set fso = Nothing