文件属性读取-优快云博客

本文介绍了一个简单的应用程序，用于展示如何使用C#通过OpenFileDialog选择文件，并读取选定文件的详细属性，包括文件版本号、产品名称等信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

首先我们来看下执行的效果

可以获得文件的一系列的属性

我们再来看下代码

首先

导入命名空间

Imports System Imports System.IO Imports System.Data Imports System.Drawing Imports System.Diagnostics Imports System.ComponentModel

我们先来添加一个控件

OpenFileDialog1

再添加两个全局的变量

Dim m_Path As String Dim m_File As FileVersionInfo

打开文件的事件处理

Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click OpenFileDialog1.CheckFileExists = True OpenFileDialog1.CheckPathExists = True OpenFileDialog1.AddExtension = True OpenFileDialog1.Filter = " All Files(*.*)|*.* " OpenFileDialog1.ShowDialog() m_Path = OpenFileDialog1.FileName If m_Path = "" Then Exit Sub Else TextBox1.Text = m_Path End If End Sub

我们再来看下　OpenFileDialog类中的方法

提示用户打开文件。无法继承此类。命名空间:System.Windows.Forms 程序集:System.Windows.Forms（在 system.windows.forms.dll 中）

方法

Public Property CheckPathExists() As Boolean 成员属于: System.Windows.Forms.FileDialog 摘要: 获取或设置一个值，该值指示如果用户指定不存在的路径，对话框是否显示警告。

方法

Public Property AddExtension() As Boolean 成员属于: System.Windows.Forms.FileDialog 摘要: 获取或设置一个值，该值指示如果用户省略扩展名，对话框是否自动在文件名中添加扩展名。

方法

Public Property Filter () As String 成员属于: System.Windows.Forms.FileDialog 摘要: 获取或设置当前文件名筛选器字符串，该字符串决定对话框的“另存为文件类型”或“文件类型”框中出现的选择内容。

就说到这啦

我们再来看看另一个按钮的　事件处理

Private Sub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim m_Fn As String Dim m_Cmt As String Dim m_Cm As String Dim m_Fv As String Dim m_Pv As String Dim m_Pp As String Dim m_Fd As String Dim m_Pn As String Dim m_Lan As String Dim m_Lt As String Dim m_On As String Dim m_Sb As String m_File = FileVersionInfo.GetVersionInfo(m_Path) m_Fn = m_File.FileName m_Fn = m_Fn.Substring(m_Fn.LastIndexOf( " \ " ) + 1 ) m_Cmt = m_File.Comments m_Cm = m_File.CompanyName m_Fv = m_File.FileVersion　　　　　 ' 摘要:获取文件版本号。 m_Pv = m_File.ProductVersion ' 获取与此文件一起发行的产品的版本。 m_Pn = m_File.ProductName ' 获取与此文件一起发行的产品的名称。 m_Pp = m_File.FilePrivatePart ' 获取文件专用部件号。 m_Fd = m_File.FileDescription ' 获取文件说明。 m_Lan = m_File.Language ' 获取版本信息区的默认语言字符串。 m_Lt = m_File.LegalTrademarks ' 获取应用到文件的商标和注册商标。 m_On = m_File.OriginalFilename ' 获取创建文件时所使用的名称。 m_Sb = m_File.SpecialBuild ' 获取文件的特殊内部版本信息。 ListBox1.Items.Add( " ***************************************** " ) ListBox1.Items.Add( " 文件名： " & m_Fn) ListBox1.Items.Add( " 文件注释： " & m_Cmt) ListBox1.Items.Add( " 公司： " & m_Cm) ListBox1.Items.Add( " 文件版本号： " & m_Fv) ListBox1.Items.Add( " 产品版本号： " & m_Pv) ListBox1.Items.Add( " 文件专用部件号： " & m_Pp) ListBox1.Items.Add( " 产品名称： " & m_Pn) ListBox1.Items.Add( " 文件说明： " & m_Fd) ListBox1.Items.Add( " 版本信息区的默认语言字符串： " & m_Lan) ListBox1.Items.Add( " 文件的商标和注册商标： " & m_Lt) ListBox1.Items.Add( " 文件的特殊内部版本信息： " & m_Sb) ListBox1.Items.Add( " 创建文件是所使用的名称： " & m_On) ListBox1.Items.Add( " ****************************************** " ) End Sub

Public NotInheritable Class FileVersionInfo Inherits System.Object 成员属于: System.Diagnostics 摘要: 为磁盘上的物理文件提供版本信息。

Public ReadOnly Property FileName() As String 成员属于: System.Diagnostics.FileVersionInfo 摘要: 获取 System.Diagnostics.FileVersionInfo 的此实例所描述的文件的名称。

Public Function Substring( ByVal startIndex As Integer ) As String 成员属于: System.String 摘要: 从此实例检索子字符串。子字符串从指定的字符位置开始。参数: startIndex: 此实例中子字符串的起始字符位置。返回值: 一个 System.String，等效于此实例中从 startIndex 处开始的子字符串。 - 或 - 如果 startIndex 等于此实例的长度，则为 System.String.Empty。