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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!