发信人: fishy()
整理人: fishy(2000-11-08 09:07:56), 站内信件
|
Sub AddFile (FileName As String,Data As String)
'把Data追加到文件FileName后面
Dim Pos As Integer
If Dir(FileName)="" Then
Pos=1
Else
Pos=FileLen(FileName)+1
End If
Open FileName For Append As #1
Seek #1,Pos
Print #1,Data
Close #1
End Sub
--
Dim fishy As Friend
回复时请打勾
------------
欢迎大家访问酷码工作室：http://comma.yes8.com
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.37.14]
|
|