我们专注攀枝花网站设计 攀枝花网站制作 攀枝花网站建设
成都网站建设公司服务热线:400-028-6601

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb.net查找文件 vbnet findwindow

VB.NET遍历查找某个文件夹,并找出指定文件

解压密码:1299

专注于为中小企业提供网站设计制作、成都做网站服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业清丰免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了1000+企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。

假设路径为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

详见源代码!!

vb.net查找文件问题

思路:

1,使用ListBox1控件来存放搜索到的文件名,然后ListBox1.SelectedItem就可以返回选中项的文本;

2,利用获得的选中项文本(即文件与路径),使用打开文本文件的方法,读取内容显示在文本框里。

vb.net关键字搜索文件

窗体上添加一个文本框,一个列表框,一个按钮:

代码如下:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim MyDir As String = "C:\123"

Dim MyFilter As String = "*" TextBox1.Text "*"

ListBox1.Items.Clear()

For Each MyFile As String In System.IO.Directory.GetFiles(MyDir, MyFilter)

ListBox1.Items.Add(MyFile)

Next

End Sub

vb.net 如何用通配符查找文件

步骤如下:

窗体上添加2个列表框,一个按钮:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim MyDir As String = "C:\123"

'搜索并显示子文件夹

ListBox1.Items.Clear()

For Each MySubDir As String In System.IO.Directory.GetDirectories(MyDir)

ListBox1.Items.Add(MySubDir)

Next

'搜索并显示文件

ListBox2.Items.Clear()

For Each MyFile As String In System.IO.Directory.GetFiles(MyDir)

ListBox2.Items.Add(MyFile)

Next

End Sub

End Class


网站名称:vb.net查找文件 vbnet findwindow
本文URL:http://mswzjz.cn/article/doseige.html

其他资讯