vb.net获取文件版本

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

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

我们再来看下 代码

首先

导入命名空间

    
    

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

我们先来添加一个控件

OpenFileDialog1

再添加两个全局的变量

    
    

     
     Dim
     
      m_Path 
     
     As
     
      
     
     String
     
      m_File 
     
      FileVersionInfo
    
    

打开文件的事件处理

    
    

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

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

    
    

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

方法

    
    

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

方法

    
    

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

方法

    
    

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

方法

    
    

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

就说到这啦

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

    
    

     
      Button2_Click(
     
      Button2.Click 
     
      m_Fn 
     
      m_Cmt 
     
      m_Cm 
     
      m_Fv 
     
      m_Pv 
     
      m_Pp 
     
      m_Fd 
     
      m_Pn 
     
      m_Lan 
     
      m_Lt 
     
      m_On 
     
      m_Sb 
     
      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_File.ProductVersion 
     
      获取与此文件一起发行的产品的版本。 
     
      m_File.ProductName 
     
      获取与此文件一起发行的产品的名称。 
     
      m_File.FilePrivatePart 
     
      获取文件专用部件号。
     
      m_File.FileDescription 
     
      获取文件说明。
     
      m_File.Language 
     
      获取版本信息区的默认语言字符串。 
     
      m_File.LegalTrademarks 
     
      获取应用到文件的商标和注册商标。 
     
      m_File.OriginalFilename 
     
      获取创建文件时所使用的名称。 
     
      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
    
    

    
    

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

    
    

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

    
    

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

    
    

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

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