锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net获取子文件 vb 获取文件列表

IT技术dirCount

vb.net 搜索子目录下的文件vb.net编程查找搜索指定目录下面的所有文件和其子目录下的文件，方法如下：
''=============================================
''名称: FindPath
''作用: 查找搜索指定目录下面的所有文件和其子目录下的文件
''参数：strPath 要查找的目录，
''strFiles 用于存查找结果的缓冲区 ， String 类型的动态数组，调用时事先初始化，如Redim strFiles(0)
''FileCount 用于返回文件个数
''=============================================
Public Sub FindPath(ByVal strPath As String, strFiles() As String, FileCount As Long)
Dim strDirs()As String
Dim strResultAs String
Dim FileLimitAs Long
Dim dirLimitAs Long
Dim dirCountAs Long
Dim IAs Long
FileLimit = UBound(strFiles)1
dirLimit = 0
If Right$(strPath, 1)"/" Then strPath = strPath"/"
strResult = Dir(strPath, vbDirectoryvbSystemvbReadOnlyvbHiddenvbNormalvbArchive)
Do While Len(strResult)0
If strResult"." And strResult".." Then
If (GetAttr(strPathstrResult) And vbDirectory)vbDirectory Then
If FileCount = FileLimit Then
ReDim Preserve strFiles(FileLimit10)
FileLimit = FileLimit10
End If
strFiles(FileCount) = strPathstrResult
FileCount = FileCount1
Else
If dirCount = dirLimit Then
ReDim Preserve strDirs(dirLimit10)
dirLimit = dirLimit10
End If
strDirs(dirCount) = strPathstrResult
dirCount = dirCount1
End If
End If
【vb.net获取子文件 vb 获取文件列表】strResult = Dir(, vbDirectoryvbSystemvbReadOnlyvbHiddenvbNormalvbArchive)
Loop
For I = 0 To dirCount - 1
Call FindPath(strDirs(I), strFiles, FileCount)
Next I
End Sub
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文件(文件写入的编码要与读取的编码一致)
在VB.NET中，使用Treeview列出指定目录下的子文件夹和子文件夹中的文件建一个ImageList控件，右击，属性，在“图像”里插入图片（你的1.gif），看好他们的索引（Index，默认是1） 。然后，代码如下 。＝＝＝＝＝＝＝＝＝＝＝＝Private Sub Command1_Click()TreeView1.ImageList = ImageList1 '关联Treeview1与Imagelist1TreeView1.LineStyle = tvwRootLinesDim nodX As NodeTreeView1.Nodes.Add , , "a1", "teachername"Set nodX = TreeView1.Nodes.Add("a1", tvwChild, , "教师姓名", 1) '这个1的意思是刚才设置的图片在ImageList里的索引End Sub
vb.net获取子文件的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb 获取文件列表、vb.net获取子文件的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：鸿蒙系统的音乐控制，鸿蒙系统音乐控制台

    下一篇：微信视频号怎么开小店文案，怎么在微信视频号开店