VB.net遍歷某個文件夾，并讀取子目錄中的指定文件

vb.net：

我們提供的服務有：成都網(wǎng)站設計、做網(wǎng)站、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認證、永德ssl等。為近1000家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務，是有科學管理、有技術的永德網(wǎng)站制作公司

Dim

path

=

System.IO.Directory.GetFiles("D:\Log\abc",

"*.txt",

SearchOption.AllDirectories)：搜索該路徑下的所有txt類型的目錄及子目錄

path.AddRange(path)

Dim

_RecordInfo

As

String

Dim

_Reader

As

StreamReader

_Reader

=

New

StreamReader(file,

System.Text.Encoding.Default)：'以Default編碼的形式讀取file文件(文件寫入的編碼要與讀取的編碼一致)

求大神指點 vb.net 怎么 遍歷目錄下的所有文件夾和文件夾下的所有文件 exe|txt.bmp|dll ...

IO.Directory.GetDirectories("文件夾") '獲取文件夾中的所有子文件夾路徑。

IO.Directory.GetFiles("文件夾") '獲取文件夾下所有文件的路徑。

'子文件夾的子文件夾，用遞歸；

用vb.net怎樣實現(xiàn)在遍歷某一文件夾下的所有文件

'把下面的目錄改成你要遍歷的目錄

Dim MyDir = "C:\Windows"

Dim MyInfo = MyDir + "目錄下的所有文件包括："

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

MyInfo += Environment.NewLine + MyFile

Next

Me.RichTextBox1.Text =MyInfo

在VB.net中，如何遍歷指定路徑下的文件夾并把文件夾名存儲在數(shù)組中？

給你一個提示吧！呵呵，剩下的要自己思考哦！

Path：是初始目錄的路徑

Private Sub WriteArray(ByVal Path As String)

'寫入數(shù)組代碼在這里，直接將Path寫到數(shù)組就行了。

Dim dir As New IO.DirectoryInfo(Path)

For Each d As IO.DirectoryInfo In dir.GetDirectories

WriteArray(d.FullName) '遞歸

Next

End Sub

如果子目錄較多那么遞歸會比較費時間，在調(diào)用遞歸前加入application.doevent就行了，這樣在應對大遞歸時不會死機。

至于數(shù)組嘛使用 arraylist 最好了。

回答補充：

把遞歸去掉就行了?。?/p>

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

詳見源代碼！！