如何获取文件信息

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

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

我们再来看下 代码

首先

导入命名空间

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 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。

 

 

Public ReadOnly Property CompanyName() As String
成员属于: System.Diagnostics.FileVersionInfo
摘要:
获取生成此文件的公司的名称。  

最后附上源代码
https://files.cnblogs.com/zbqy/FileMessage.rar