vb6 遍历文件夹 .txt

在VB6中，要遍历文件夹并获取其中的.txt文件，可以使用FileSystemObject对象。首先，需要导入Microsoft Scripting Runtime库来使用FileSystemObject对象。

首先，创建一个命令按钮，在按钮的Click事件中添加以下代码：

Private Sub Command1_Click()
    Dim fso As New FileSystemObject
    Dim folderPath As String
    Dim folder As Folder
    Dim file As Object
    
    ' 设置文件夹路径
    folderPath = "文件夹的路径"
    
    ' 获取文件夹对象
    Set folder = fso.GetFolder(folderPath)
    
    ' 遍历文件夹中的文件
    For Each file In folder.Files
        ' 判断文件类型为.txt
        If fso.GetExtensionName(file.Name) = "txt" Then
            ' 处理.txt文件，例如输出文件名
            Debug.Print file.Name
        End If
    Next file
    
    ' 释放对象
    Set file = Nothing
    Set folder = Nothing
    Set fso = Nothing
End Sub

在上述代码中，首先创建了一个FileSystemObject对象。然后，设置文件夹的路径为你想要遍历的文件夹路径。接下来，使用GetFolder方法获取文件夹对象。之后，使用For Each语句遍历文件夹中的文件。在遍历过程中，判断文件的扩展名是否为".txt"，如果是，则执行相应操作，例如输出文件名。

最后，记得释放对象，以释放资源。

请将代码中的"文件夹的路径"替换为你想要遍历的文件夹的实际路径。