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

专注VB编程开发20年

于 2011-09-09 15:27:08 发布

阅读量1.8k

点赞数

CC 4.0 BY-SA版权

分类专栏：作品成品开发的一些软件文章标签： vb function string

本文链接：https://blog.youkuaiyun.com/xiaoyao961/article/details/6763923

作品成品开发的一些软件专栏收录该内容

36 篇文章

订阅专栏

本文介绍了一个使用VB源码在TXT文件尾部追加资料的功能，适用于记录日志及数据添加等用途。通过该功能，可以以添加模式打开文件并写入指定内容。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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  〓〓〓〓〓〓〓〓〓┛