Function AddLine(strPath,IntLine,strInput)

Dim Fso,MyFile

Set Fso = CreateObject("Scripting.FileSystemObject")

'以只读的方式打开文件

Set ReadFile = Fso.OpenTextFile(strPath,1,true)

'以只写的方式打开文件

Set WriteFile = Fso.OpenTextFile("NewFile.txt",2,true)

'如果当前的指针不在整个文档的末尾，读取文本的整行内容

Do Until ReadFile.AtEndOfStream

WriteFile.WriteLine ReadFile.ReadLine

IntLine = IntLine - 1

'判断光标是否已达到指定行，达到则退出函数        

If IntLine = 0 Then

WriteFile.WriteLine strInput

End If

Loop

ReadFile.Close

WriteFile.Close

Set Fso = Nothing

我从网上找到的脚本，你看看，就是插入数据的

VBS 读取csv就和读取TXT格式的文件差不多方法