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