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

解壓密碼：1299

十載專注成都網(wǎng)站制作，企業(yè)網(wǎng)站制作，個人網(wǎng)站制作服務(wù)，為大家分享網(wǎng)站制作知識、方案，網(wǎng)站設(shè)計流程、步驟,成功服務(wù)上千家企業(yè)。為您提供網(wǎng)站建設(shè),網(wǎng)站制作,網(wǎng)頁設(shè)計及定制高端網(wǎng)站建設(shè)服務(wù),專注于企業(yè)網(wǎng)站制作,高端網(wǎng)頁制作,對成都食品包裝袋等多個方面，擁有豐富的網(wǎng)站營銷經(jīng)驗。

假設(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如何遍歷整個文件夾，后找出某一個文件？

解壓密碼：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 SubEnd Class

詳見源代碼??！

vb.net關(guān)鍵字搜索文件

窗體上添加一個文本框，一個列表框，一個按鈕：

代碼如下：

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查找文件問題

思路：

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

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

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資源文件
分享網(wǎng)址：http://www.rwnh.cn/article44/dodosee.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站建設(shè)、品牌網(wǎng)站建設(shè)、搜索引擎優(yōu)化、動態(tài)網(wǎng)站、外貿(mào)建站、標(biāo)簽優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)