VB源码--如何保存文件 存储资料到记事本中

最新推荐文章于 2022-01-24 16:42:48 发布

原创

最新推荐文章于 2022-01-24 16:42:48 发布

·

1.6k 阅读

·

0

·

2

·

CC 4.0 BY-SA版权

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

文章标签：

#vb

#存储

#function

作品成品 开发的一些软件

专栏收录该内容

36 篇文章

订阅专栏

本文详细介绍了使用VB源码保存字符信息到文本文件的方法，解决保存时可能出现的乱码或变形问题，并提供了保存成功后的提示信息。

摘要生成于

C知道

，由 DeepSeek-R1 满血版支持，

前往体验 >

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