十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
获取方法,参考实例如下:
创新互联公司专业为企业提供祁连网站建设、祁连做网站、祁连网站设计、祁连网站制作等企业网站建设、网页设计与制作、祁连企业网站模板建站服务,十余年祁连做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
'获取路径名各部分:
如:
c:\dir1001\aaa.txt
'获取路径路径
c:\dir1001\
Public
Function
GetFileName(FilePathFileName
As
String)
As
String
'获取文件名
aaa.txt
On
Error
Resume
Next
Dim
i
As
Integer,
J
As
Integer
i
Len(FilePathFileName)
J
InStrRev(FilePathFileName,
"\")
GetFileName
Mid(FilePathFileName,
J
+
1,
i)
End
Function
''获取路径路径
c:\dir1001\
Public
Function
GetFilePath(FilePathFileName
As
String)
As
String
'获取路径路径
c:\dir1001\
On
Error
Resume
Next
Dim
J
As
Integer
J
InStrRev(FilePathFileName,
"\")
GetFilePath
Mid(FilePathFileName,
1,
J)
End
Function
'获取文件名但不包括扩展名
aaa
Public
Function
GetFileNameNoExt(FilePathFileName
As
String)
As
String
'获取文件名但不包括扩展名
aaa
On
Error
Resume
Next
Dim
i
As
Integer,
J
As
Integer,
k
As
Integer
i
Len(FilePathFileName)
J
InStrRev(FilePathFileName,
"\")
k
InStrRev(FilePathFileName,
".")
If
k
Then
GetFileNameNoExt
Mid(FilePathFileName,
J
+
1,
i
-
J)
Else
GetFileNameNoExt
Mid(FilePathFileName,
J
+
1,
k
-
J
-
1)
End
If
End
Function
'=====
'获取扩展名
.txt
Public
Function
GetFileExtName(FilePathFileName
As
String)
As
String
'获取扩展名
.txt
On
Error
Resume
Next
Dim
i
As
Integer,
J
As
Integer
i
Len(FilePathFileName)
J
InStrRev(FilePathFileName,
".")
If
J
Then
GetFileExtName
".txt"
Else
GetFileExtName
Mid(FilePathFileName,
J,
i)
End
If
End
Function
您是否曾经希望了解如何检索要在您自己的应用程序中使用的特定文件的属性?如果您要在 VB NET 中开发的应用程序依赖于特定的环境 那么在执行程序中的代码之前 您需要检查文件的属性 例如 您可能需要了解特定文件随之发行的产品 或者是文件的版本号 在 VB NET 中 借助 GetVersionInfo 方法和 FileVersionInfo 类 要获得这些信息简直易如反掌 如果启动 Windows 资源管理器 右击一个文件名 然后从弹出式菜单中选择 属性 则会看到该文件的 属性 窗口 属性 窗口显示了选定文件的有关信息 假设您在任务管理器的 TASKMAN EXE 文件名上右击 图 显示了该文件的 属性 对话框
)this style width= ;
通过使用 FileVersionInfo 类 您可以在 VB NET 应用程序中提供相同的功能 根据应用程序的需要 您可以复制 属性 对话框中显示的全部信息 也可以复制其中的一部分 图 显示了我们将要创建的应用程序 它将用来复制 属性 对话框中显示的部分信息
image javascript:return big(this) src= //img educity cn/img_ / / / jpg javascript:if(this width )this style width= ;
要创建演示程序 请启动 VB NET 并开始一个名为 Retrieving File Properties(检索文件属性)的新项目 按照图 所示 向 Form 添加七个文本框控件 七个标签控件和一个按钮控件 接下来 将以下代码添加到 Get Properties(获取属性)按钮的 Click 事件
borderColorDark=#ffffff cellPadding= width= align=center borderColorLight=black border= e e
Private Sub Button _Click(ByVal sender _As System Object ByVal e As System EventArgs) _Handles Button Click 获取记事本的文件版本Dim FileProperties As FileVersionInfo = FileVersionInfo GetVersionInfo( C:\WINNT\taskman exe ) 检索文件说明(名称)TextBox Text = FileProperties FileDescription 检索文件版本TextBox Text = FileProperties FileVersion 检索文件的内部名称TextBox Text = FileProperties InternalName 检索文件的旧名称TextBox Text = FileProperties OriginalFilename 检索产品名称TextBox Text = FileProperties ProductName 检索产品版本TextBox Text = FileProperties ProductVersion 检索语言TextBox Text = FileProperties LanguageEnd Sub
现在 按 F 键执行该应用程序 当您单击 Get Properties(获取属性)按钮时 程序将显示 TASKMAN EXE 文件的有关信息 如图 中所示
Get Properties(获取属性)按钮的 Click 事件代码调用 GetVersionInfo 方法 该方法返回一个 FileVersionInfo 类 其中包括您所指定的文件的所有版本信息 您需要向 GetVersionInfo 方法提供一个完全限定的文件 如果没有指定正确的路径名 则该方法仅返回文件名本身 而不返回文件信息 调用 GetVersionInfo 后 就像我们在演示程序中所做的一样 只需通过类就可以检索特定的属性 FileVersionInfo 类包含很多属性 您可以通过查询这些属性来检索文件信息 表 仅显示了我们在演示程序中查询的属性 但是可以在 MSDN 中通过搜索 FileVersionInfo 类说明找到完整的列表 表 FileVersionInfo 类可以使用的属性
cellSpacing= cellPadding= width= border= %
属性
%
说明
%
FileDescription
%
检索指定文件的说明
%
FileVersion
%
检索指定文件的版本号
%
InternalName
%
检索指定文件的内部名称 (并不是所有的文件都关联有内部名称 )
%
OriginalFilename
%
检索指定文件在首次创建时最初被赋予的名称
%
ProductName
%
检索指定文件的产品名称 它是此文件随之发行的产品的名称 (并不是所有的文件都关联有产品名称 )
%
ProductVersion
%
检索指定文件的产品版本 它是 ProductName 属性的版本
%
Language
%
检索指定文件的版本资源中的 Microsoft 语言标识符(显示为字符串)
lishixinzhi/Article/program/net/201311/12277
VB可以使用FileListBox 控件来获取指定文件夹内的所有文件名。
FileListBox 控件,在运行时,在 Path 属性指定的目录中,FileListBox 控件将文件定位并列举出来。该控件用来显示所选择文件类型的文件列表。例如,可以在应用程序中创建对话框,通过它选择一个文件或者一组文件。
以下是组合使用DriveListBox 、控件DirListBox 控件和FileListBox 控件来获取硬盘下任何一个文件夹内的文件名。
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Dim i As Long
Debug.Print "目录夹内存在" File1.ListCount "个文件。"
End Sub
解压密码:1299
假设路径为C:\abc
代码:
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim Files As ObjectModel.ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles("C:\abc")
Dim FileSize As Long, FileName As String = Nothing
Dim oFileSize As Long
For Each File As String In Files
oFileSize = My.Computer.FileSystem.GetFileInfo(File).Length
If oFileSize FileSize Then
FileSize = oFileSize
FileName = File
End If
Next
Dim ListN As ListViewItem = New ListViewItem(My.Computer.FileSystem.GetName(FileName))
ListN.SubItems.Add(oFileSize " byte")
ListN.SubItems.Add(My.Computer.FileSystem.GetFileInfo(FileName).Extension " 文件")
ListN.SubItems.Add(FileName)
ListView1.Items.Add(ListN)
End Sub
End Class
详见源代码!!
思路:
1,使用ListBox1控件来存放搜索到的文件名,然后ListBox1.SelectedItem就可以返回选中项的文本;
2,利用获得的选中项文本(即文件与路径),使用打开文本文件的方法,读取内容显示在文本框里。