VB MsgBox 问题

Question

Private Sub Command1_Click()
Open "C:\E\STS" For Append As #1
Print #1, "127.0 123.321.303"
Close #1
End Sub这段程序，如何做到执行成功出一个对话框提示？
用MsgBox最好

Answer 1

前面加上on error goto errhandle，后面exit sub就可以了。

Answer 2

Private Sub Command1_Click() 
on error goto errhandle
Open "C:\E\STS" For Append As #1 
Print #1, "127.0 123.321.303" 
Close #1 
msgbox "ok"
exit sub
errhandle:
err.clear
End Sub 

Answer 3

Dim fname$, starttm&, Oldlen&
Private Sub Command1_Click()
   fname = "c:\test.txt"
   If Dir(fname) <> "" Then
      Oldlen = FileLen(fname)
   Else
      Oldlen = 0
   End If
   Open fname For Append As #1
   Print #1, "127.0 123.321.303"
   Close #1
   starttm = Timer
   Do
      DoEvents
      If Dir(fname) <> "" Then Exit Do
   Loop Until Timer - starttm >= 1000
   MsgBox IIf(FileLen(fname) - Oldlen >= 17, "保存成功", "保存失败")
End Sub