用vb对指定路径下的文件进行读取后保存

在线等待，请问用vb怎么实现对指定路径下的文件读取后，加入一行字符，然后保存到原来的位置。

VB code

Private Sub Command1_Click()
   Dim ZiFu As String    '存储你需要加入的字符
   Dim Str As String     '临时存储你文件里之前的字符
   ZiFu = "这是你需要加入的字符。"
   
   Open "c:\wenjian.txt" For Input As #1
   Input #1, Str         '将你原来的字符读取出来
   Close #1
   Str = Str & vbCrLf & ZiFu  '重新组成新的文件
    
   Open "c:\wenjian.txt" For Output As #1
   Print #1, Str              '存储你重新组合后的文件
   Close #1
End Sub

＋1

用open ... for Append as ..


Private Sub Command1_Click()
  Dim sFileName As String
  Dim n As Integer
  sFileName = "F:\a.txt" '写上你需要的文件的路径
  n = FreeFile()
  Open sFileName For Append As n
  Print #1, "1232132132" '引号内换成你要添加的字符
  Close n
End Sub

上面，打错了
 Print n, "1232132132" '引号内换成你要添加的字符