Opening,revising, & closing, sequentially, all files with in a folder

[jbart]

Maybe something like this.

Private Sub Command1_Click()
    Dim strPath As String
    Dim strFile As String
    Dim strTemp As String
    
    strPath = "c:\testFolder\"
    'Set strFile to the first file in the folder
    strFile = Dir(strPath & "*")
    
    'Loop until strFile is empty, indicating that there are no more files
    Do Until strFile = ""
        Open strPath & strFile For Input As #1
        Do While Not EOF(1)
            Line Input #1, strTemp
            Debug.Print strTemp
        Loop
        Close #1
        'Set strFile to the next file in the folder
        strFile = Dir
    Loop
End Sub