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

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 strResult   As String

Dim FileLimit   As Long

Dim dirLimit    As Long

Dim dirCount    As Long

Dim I           As Long

    

    FileLimit = UBound(strFiles) + 1

    dirLimit = 0

    If Right$(strPath, 1)  "/" Then strPath = strPath  "/"

    strResult = Dir(strPath, vbDirectory + vbSystem + vbReadOnly + vbHidden + vbNormal + vbArchive)

    Do While Len(strResult)  0

        If strResult  "." And strResult  ".." Then

            If (GetAttr(strPath  strResult) And vbDirectory)  vbDirectory Then

                If FileCount = FileLimit Then

                    ReDim Preserve strFiles(FileLimit + 10)

                    FileLimit = FileLimit + 10

                End If

                strFiles(FileCount) = strPath  strResult

                FileCount = FileCount + 1

            Else

                If dirCount = dirLimit Then

                    ReDim Preserve strDirs(dirLimit + 10)

                    dirLimit = dirLimit + 10

                End If

                strDirs(dirCount) = strPath  strResult

                dirCount = dirCount + 1

            End If

        End If

        strResult = Dir(, vbDirectory + vbSystem + vbReadOnly + vbHidden + vbNormal + vbArchive)

    Loop

    

    For I = 0 To dirCount - 1

        Call FindPath(strDirs(I), strFiles, FileCount)

    Next I

End Sub

相关问答

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

Q2: 在VB.NET中，使用Treeview列出指定目录下的子文件夹和子文件夹中的文件

建一个ImageList控件，右击，属性，在“图像”里插入图片（你的1.gif），看好他们的索引（Index，默认是1）。然后，代码如下。 ＝＝＝＝＝＝＝＝＝＝＝＝ Private Sub Command1_Click() TreeView1.ImageList = ImageList1 '关联Treeview1与Imagelist1 TreeView1.LineStyle = tvwRootLines Dim nodX As Node TreeView1.Nodes.Add , , "a1", "teachername" Set nodX = TreeView1.Nodes.Add("a1", tvwChild, , "教师姓名", 1) '这个1的意思是刚才设置的图片在ImageList里的索引 End Sub

vb.net获取子文件的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb 获取文件列表、vb.net获取子文件的信息别忘了在本站进行查找喔。