VB源码--TXT文件尾部追加资料，可用于记录日志及数据添加等用途

'┏〓〓〓〓〓〓〓〓〓 AddtoFile,start 〓〓〓〓〓〓〓〓〓┓
Function AddtoFile(FileName, Optional AddFileBody As String) As Boolean
   '[mycode_id:370],edittime:2011-1-16 下午 12:40:15
   On Error GoTo Err
   Dim FileObj
   Dim FOpenFile
   Set FileObj = CreateObject("Scripting.FileSystemObject")
   Set FOpenFile = FileObj.OpenTextFile(FileName, 8, -1, 0) '8以添加(ForAppending)的模式打开文件
   FOpenFile.WriteLine AddFileBody
   FOpenFile.Close
   AddtoFile=True
   Exit Function
   Err:
   'MsgBox Err.Description
End Function
'┗〓〓〓〓〓〓〓〓〓  AddtoFile,end  〓〓〓〓〓〓〓〓〓┛