vb遍历文件夹和子文件夹中所有文件

在VB中遍历文件夹和子文件夹中的所有文件可以使用递归函数的方式来实现。以下是一个示例代码：

Private Sub TraverseFolder(ByVal folderPath As String)
    Dim folder As New DirectoryInfo(folderPath)
    
    ' 遍历当前文件夹中的文件
    For Each file As FileInfo In folder.GetFiles()
        ' 处理文件
        Console.WriteLine(file.FullName)
    Next
    
    ' 遍历当前文件夹中的子文件夹
    For Each subfolder As DirectoryInfo In folder.GetDirectories()
        ' 递归调用该函数以处理子文件夹中的文件
        TraverseFolder(subfolder.FullName)
    Next
End Sub

Sub Main()
    Dim rootFolder As String = "C:\目标文件夹路径"
    
    TraverseFolder(rootFolder)
    
    Console.WriteLine("遍历完成！")
    Console.ReadLine()
End Sub

在代码中，首先定义了一个名为`TraverseFolder`的函数，该函数接收一个文件夹路径参数`folderPath`。函数内部首先使用`DirectoryInfo`类实例化一个文件夹对象`folder`。然后使用`GetFiles`方法遍历当前文件夹中的所有文件，并使用`For Each`循环逐个处理文件。接下来使用`GetDirectories`方法遍历当前文件夹中的子文件夹，并使用`For Each`循环逐个递归调用`TraverseFolder`函数以处理子文件夹中的文件。这样就可以实现对文件夹及其子文件夹进行递归遍历。

在`Main`函数中，首先定义了一个名为`rootFolder`的变量，该变量保存了目标文件夹的路径。然后调用`TraverseFolder`函数并传入目标文件夹路径作为参数，开始遍历。最后输出“遍历完成！”并等待用户按下回车键，以保持控制台窗口的打开状态。