Question

VB中这段代码怎么错了？关于print输出数据到文件中

Private Sub Form_Load() 【黄色光标指的是这段】
Skin1.ApplySkin Me.hWnd
Dim supperone, suppertwo As Integer
supperone = "111"
suppertwo = "111"
If Dir("C:\Program Files\AndRoidLinux", vbDirectory) = "" Then
MkDir "C:\Program Files\AndRoidLinux"
Else
Open "C:\Program Files\AndRoidLinux\MsgUser.vxe" For Append As #1
Print #1, supperone
Print #1, suppertwo
Close

End If
End Sub

Answer 1

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
Dim supperone As Integer, suppertwo As Integer
supperone = 111
suppertwo = 111
If Dir("C:\Program Files\AndRoidLinux", vbDirectory) = "" Then MkDir "C:\Program Files\AndRoidLinux"
Open "C:\Program Files\AndRoidLinux\MsgUser.vxe" For Append As #1
Print #1, supperone
Print #1, suppertwo
Close
End Sub

Answer 2

文本文件用"FileSystemObject"库来操作,二进制文件用流(字节数组)来写入.这EXE文件末尾要加上点内容要用流方式来追加的.