处理文件夹中的多个文件，并使用vba放置在具有相同文件名的不同文件夹中

Question

我已经为读取txt文件创建了一个代码，并删除了该文件中的一组行并将其保存在另一个位置。您能否帮我修改读取特定文件夹中多个文件的代码，然后对所有文件执行该过程，并将这些文件保存在不同文件夹中的同名文件中。我附上了代码。

Sub cleantext() 
Dim lineOfText As String 
Dim skipLines As Boolean 
'Open files for writing 
Open "C:\Users\INNAR1\Desktop\input_static_files\ebb_htr01h.UCBG" For Input As #1 
Open "C:\Users\INNAR1\Desktop\output_static_files\ebb_htr01h.UCBG" For Output As #2 




skipLine = False 
Do Until EOF(1) 
Line Input #1, lineOfText 
If lineOfText = "dynamics" Then skipLines = True 
If lineOfText = "end dynamics" Then skipLines = False 
If Not skipLines And Not lineOfText = "end dynamics" Then Print #2, lineOfText 
Loop 
Close #1 
Close #2 
End Sub 

在此先感谢

Answer 1

您可以使用斯科特的建议，遍历文件，并致电以下版本处理任何给定的文件。你应该添加错误处理。

Sub cleantext(ByVal InputFileName As String, ByVal OutputFileName As String) 
    Dim lineOfText As String 
    Dim skipLines As Boolean 

    Dim iInput As Integer 
    Dim iOutput As Integer 




    'Open files for writing 
    Open InputFileName For Input As #iInput 
    Open OutputFileName For Output As #iOutput 

    skipLine = False 
    Do Until EOF(1) 
     Line Input #iInput, lineOfText 
     If lineOfText = "dynamics" Then skipLines = True 
     If lineOfText = "end dynamics" Then skipLines = False 
     If Not skipLines And Not lineOfText = "end dynamics" Then Print #iOutput, lineOfText 
    Loop 

    Close #iInput 
    Close #iOutput 
End Sub