vb.net查找文件,vbs搜索文件

vb.net查找文件问题

思路：

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

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

相关问答

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

解压密码：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

详见源代码！！

Q2: 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