用Scripting.FileSystemObject对象打开要处理的文件A，并创建一个输出文件B
从A中一行一行读取数据（ReadLine方法），在读出的字符串前面添加一段
然后写入B（WriteLine方法）
最后关闭两个文件

具体的代码就不写出来了

楼上的斑竹的思路不错，只要再看一些FileSystemObject相关操作就可以完成任务。

Const ForReading = 1
Const ForWriting = 2
Ini_line=1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
    ("test.log", ForReading)

Do Until objTextFile.AtEndOfStream
    strLine = objTextFile.ReadLine
   
        strNewText = strNewText & "A"+strLine & vbCrLf
  
 Ini_line=Ini_line+1
Loop

objTextFile.Close
Set objTextFile = objFSO.OpenTextFile _
    ("test.log", ForWriting)
objTextFile.Write(strNewText)
objTextFile.Close