快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

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

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

vbnet遍历文件夹,vb遍历文件夹的所有文件

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 SubEnd Class

详见源代码!!

求大神指点 vb.net 怎么 遍历目录下的所有文件夹和文件夹下的所有文件 exe|txt.bmp|dll ...

IO.Directory.GetDirectories("文件夹") '获取文件夹中的所有子文件夹路径。

IO.Directory.GetFiles("文件夹") '获取文件夹下所有文件的路径。

'子文件夹的子文件夹,用递归;

VB.NET 遍历文件夹里所有的txt并放在一个文件夹里

Private Sub GetChilren(ByVal Subject As String)

For Each i As String In My.Computer.FileSystem.GetDirectories(Subject)

GetChilren(i)'在这里递归

Next

For Each i As String In My.Computer.FileSystem.GetFiles(Subject)

'''txt,用全局变量或参数类数组、泛型、控件保存每个i

Next

End Sub

在VB.net中,如何遍历指定路径下的文件夹并把文件夹名存储在数组中?

给你一个提示吧!呵呵,剩下的要自己思考哦!

Path:是初始目录的路径

Private Sub WriteArray(ByVal Path As String)

'写入数组代码在这里,直接将Path写到数组就行了。

Dim dir As New IO.DirectoryInfo(Path)

For Each d As IO.DirectoryInfo In dir.GetDirectories

WriteArray(d.FullName) '递归

Next

End Sub

如果子目录较多那么递归会比较费时间,在调用递归前加入application.doevent就行了,这样在应对大递归时不会死机。

至于数组嘛使用 arraylist 最好了。

回答补充:

把递归去掉就行了啊!

VB.net遍历某个文件夹,并读取子目录中的指定文件

vb.net:

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文件(文件写入的编码要与读取的编码一致)


网站名称:vbnet遍历文件夹,vb遍历文件夹的所有文件
网页网址:http://6mz.cn/article/hoicdi.html

其他资讯