VBS 如何向Txt文檔中指定行插入內容

'參數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)
	'以只寫的方式打開文件
	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 
End Function