前端之家收集整理的这篇文章主要介绍了
VB源码--如何保存文件 存储资料到记事本中，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
VB源码--如何保存
文件 存储资料到记事本中
'┏〓〓〓〓〓〓〓〓〓 SaveFile,start 〓〓〓〓〓〓〓〓〓┓
'［详介］：
'保存时有时会乱码或变样
'［简介］：
'保存字符信息到文本文件，保存资料
Function SaveFile(zname,zbody,optional msg as boolean)
'[mycode_id:177],edittime:2011-9-9 下午 03:29:57
On Error GoTo err
Dim myfile,fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set myfile = fso.CreateTextFile(zname,True)
myfile.Write zbody
Set myfile = Nothing
Set fso = Nothing
If msg Then MsgBox "保存成功！" & vbCrLf & zname
Exit Function
err:
'MsgBox err.Description
End Function
'┗〓〓〓〓〓〓〓〓〓 SaveFile,end 〓〓〓〓〓〓〓〓〓┛
原文链接：https://www.f2er.com/vb/260892.html
