使用vba宏从文件夹中txt文件的标题中删除2行

Sub DeleteLinesFromTxtFiles()
    Dim folderPath As String
    Dim fileName As String
    Dim fileContent As String
    Dim lines() As String
    Dim i As Long
    
    ' 设置文件夹路径
    folderPath = "C:\YourFolderPath\"
    
    ' 获取文件夹中的所有txt文件
    fileName = Dir(folderPath & "*.txt")
    
    ' 循环处理每个txt文件
    Do While fileName <> ""
        ' 打开文件并读取内容
        Open folderPath & fileName For Input As #1
        fileContent = Input$(LOF(1), 1)
        Close #1
        
        ' 将内容按行分割为数组
        lines = Split(fileContent, vbCrLf)
        
        ' 删除前两行
        For i = 2 To UBound(lines)
            lines(i - 1) = lines(i)
        Next i
        
        ' 重新组合内容
        fileContent = Join(lines, vbCrLf)
        
        ' 保存修改后的内容到文件
        Open folderPath & fileName For Output As #1
        Print #1, fileContent
        Close #1
        
        ' 继续处理下一个文件
        fileName = Dir
    Loop
    
    MsgBox "删除两行成功！"
End Sub