'┏〓〓〓〓〓〓〓〓〓 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.DescriptionEnd Function'┗〓〓〓〓〓〓〓〓〓 Savefile,end 〓〓〓〓〓〓〓〓〓┛总结
以上是内存溢出为你收集整理的VB源码--如何保存文件 存储资料到记事本中全部内容,希望文章能够帮你解决VB源码--如何保存文件 存储资料到记事本中所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)