您是否曾经希望了解如何检索要在您自己的应用程序中使用的特定文件的属性？如果您要在 VB.NET 中开发的应用程序依赖于特定的环境，那么在执行程序中的代码之前，您需要检查文件的属性。例如，您可能需要了解特定文件随之发行的产品，或者是文件的版本号。在 VB.NET 中，借助 GetVersionInfo 方法和 FileVersionInfo 类，要获得这些信息简直易如反掌。
如果启动 Windows 资源管理器，右击一个文件名，然后从弹出式菜单中选择“属性”，则会看到该文件的“属性”窗口。“属性”窗口显示了选定文件的有关信息。假设您在任务管理器的 TASKMAN.EXE 文件名上右击。图 1 显示了该文件的“属性”对话框。
通过使用 FileVersionInfo 类，您可以在 VB.NET 应用程序中提供相同的功能。根据应用程序的需要，您可以复制“属性”对话框中显示的全部信息，也可以复制其中的一部分。图 2 显示了我们将要创建的应用程序，它将用来复制“属性”对话框中显示的部分信息。
要创建演示程序，请启动 VB.NET，并开始一个名为 Retrieving File Properties（检索文件属性）的新项目。按照图 2 所示，向 Form1 添加七个文本框控件、七个标签控件和一个按钮控件。接下来，将以下代码添加到 Get Properties（获取属性）按钮的 Click 事件：
Private Sub Button1_Click(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
' 获取记事本的文件版本
Dim FileProperties As FileVersionInfo =
FileVersionInfo.GetVersionInfo("C:\WINNT\taskman.exe")
' 检索文件说明（名称）
TextBox1.Text = FileProperties.FileDescription
'检索文件版本
TextBox2.Text = FileProperties.FileVersion
'检索文件的内部名称
TextBox3.Text = FileProperties.InternalName
'检索文件的旧名称
TextBox4.Text = FileProperties.OriginalFilename
'检索产品名称
TextBox5.Text = FileProperties.ProductName
'检索产品版本
TextBox6.Text = FileProperties.ProductVersion
'检索语言
TextBox7.Text = FileProperties.Language
End Sub
|
现在，按 F5 键执行该应用程序。当您单击 Get Properties（获取属性）按钮时，程序将显示 TASKMAN.EXE 文件的有关信息，如图 2 中所示。