如何获取文件信息
首先我们来看下 执行的效果
可以获得文件的一系列的属性
我们再来看下 代码
首先
导入命名空间
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
摘要:
获取生成此文件的公司的名称。
1333
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
