vb, vbs txt 데이터 쓰기

vb:
1）

Dim i As Integer
Private Sub command1_click()
    i = i + 1
    Open "c:\1.txt" For Append As #1
        Print #1, i
    Close #1
End Sub

2）Open "1.txt" For Output As #1   //output      Append   

For i = 1 To 10

Print #1, Trim(i)
Next i
Close #1

VBS:

set fso=createobject("scripting.filesystemobject")
set f=fso.opentextfile("d:\a.txt",2,true):f.write "    ":f.close