如何获取文件信息
首先我们来看下 执行的效果
可以获得文件的一系列的属性
我们再来看下 代码
首先
导入命名空间
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 摘要: 获取生成此文件的公司的名称。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。