摘要：
'参数1: txt文件'参数2: 在第几行后插入数据'参数3: 插入数据内容Call AddLine("C:\test.txt",2,"2")Function AddLine(strPath,IntLine,strInput) Dim Fso,MyFile Set Fso = CreateObject("Scripting.FileSystemObject") '以只读的方式打开文件 Set ReadFile = Fso.OpenTextFile(strPath,1,true) '以只写的方式打 阅读全文
