7453
社区成员
- 主页
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
xks 2003-01-07
print 内容
write #1 内容
write #1 内容
智能卡_Snooper 2003-01-07
print #1,"fds"
litsnake1 2003-01-07
up
fling_boy 2003-01-07
Private Sub SaveRefreshRecord(ByVal sRecordFile As String, ByVal sText As String)
Dim fnum As Integer
Dim blnOpen As Boolean
On Error GoTo ErrPTD
fnum = FreeFile()
Open sRecordFile For Append As #fnum
blnOpen = True
Print #fnum, , sText
Close #fnum
blnOpen = False
Exit Sub
ErrPTD:
If blnOpen Then Close #fnum
End Sub
Dim fnum As Integer
Dim blnOpen As Boolean
On Error GoTo ErrPTD
fnum = FreeFile()
Open sRecordFile For Append As #fnum
blnOpen = True
Print #fnum, , sText
Close #fnum
blnOpen = False
Exit Sub
ErrPTD:
If blnOpen Then Close #fnum
End Sub
nik_Amis 2003-01-07
print
