vb.net查找文件問題

思路：

成都創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于成都網(wǎng)站設(shè)計、網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)、龍川網(wǎng)絡(luò)推廣、微信小程序開發(fā)、龍川網(wǎng)絡(luò)營銷、龍川企業(yè)策劃、龍川品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎；成都創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供龍川建站搭建服務(wù)，24小時服務(wù)熱線：028-86922220，官方網(wǎng)址：www.cdcxhl.com

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

2，利用獲得的選中項文本（即文件與路徑），使用打開文本文件的方法，讀取內(nèi)容顯示在文本框里。

VB.NET遍歷查找某個文件夾，并找出指定文件

解壓密碼：1299

假設(shè)路徑為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 如何用通配符查找文件

步驟如下：

窗體上添加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