VBS循环问题

'就要记录到一个日志文件里了。
'直接复制就行了。

'代码如下：

l = "1.txt" '这一行可以改一下，可以自设路径，如：l="D:\日志.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(l) Then
Set f1 = fso.OpenTextFile(l)
o = f1.ReadAll
f1.Close
End If

Dim a
a = InputBox(o)
If a = "" Then Wscript.Quit
MsgBox a

Set f2 = fso.CreateTextFile(l)
f2.Write o & a & vbCrLf
f2.Close

'我试过的，可以的。

on error resume next
set open=createobject("scripting.filesystemobject")
a=open.opentextfile("new.txt").readall
s=InputBox(a)
open.createtextfile("new.txt").write a&s