【IT168 技术文档】

    在Visual Basic 6中，可以调用API函数确定文件版本信息。而VB.NET中，允许使用属性和方法确定文件版本的详细信息，从而简化这一过程。为了获得这些信息，我将向您展示如何使用FileVersionInfo类，如何调用其GetVersionInfo方法，此方法以文件名做为参数。

    我们所用到的示例展示在下面代码中，我将向窗体中添加一个列表框（List Box）控件（下图）。注意：必须在窗体或模块的顶部添加下面的声明才能运行本示例：Imports System.Diagnostics.FileVersionInfo。

Private Sub GetFileVersionInfo()Sub GetFileVersionInfo()
Dim sFileName As String = ("C:\Program Files\Yahoo!\Messenger\YahooMessenger.exe")
Dim Info As FileVersionInfo
Info = FileVersionInfo.GetVersionInfo(sFileName)
With Info
ListBox1.Items.Add("File Name: " & .FileName)
ListBox1.Items.Add("Company Name: " & .CompanyName)
ListBox1.Items.Add("File Description: " & .FileDescription)
ListBox1.Items.Add("File Version: " & .FileVersion)
ListBox1.Items.Add("File Language: " & .Language)
ListBox1.Items.Add("File Product Name: " & .ProductName)
 ListBox1.Items.Add("File Product Version: " & .ProductVersion)
End With
End Sub

    为了获得文件版本信息，定义了变量sFileName，它用于保存文件的位置。同时也定义了FileVersionInfo类的变量为Info，然后向列表框中，一个一个地添加从FileVersionInfo对象中挑选出来的属性。下图显示了示例运行的结果。