vb 用foeeach遍历文件夹内所有CSV文件

你可以使用以下代码使用`For Each`语句遍历文件夹内所有CSV文件：

Sub ListCSVFiles()
    Dim FolderPath As String
    Dim CSVFile As String
    Dim Index As Integer
    
    FolderPath = "C:\Example\Folder\"  ' 文件夹路径
    Index = 1 ' 索引值初始化
    
    ' 使用For Each语句遍历文件夹内所有CSV文件
    For Each file In FileSystemObject.GetFolder(FolderPath).Files
        If Right(file.Name, 4) = ".csv" Then ' 判断是否为CSV文件
            CSVFile = file.Name ' 获取文件名
            MsgBox "Index: " & Index & vbCrLf & "File name: " & CSVFile ' 显示文件名
            Index = Index + 1 ' 索引值加1
        End If
    Next file
End Sub

这段代码会遍历文件夹内所有的CSV文件，并在消息框中显示每个文件的索引值和文件名。需要注意的是，这段代码需要使用`FileSystemObject`对象，你需要在代码中添加对`Microsoft Scripting Runtime`的引用。另外，这种方法比使用`Dir`函数更加灵活，可以根据需要进行修改。