B简单实现防止文件被改写的代码分享
原创
对于“删除”来说是很容易解决的，程序中查找配置文件的路径，若为空则创建，并给些默认值。VB的示例代码如下：
1 | FileName = App.Path + "\CONFIG"'如果文件不存在，则创建文件If Dir(FileName) = "" Then Open FileName For Output As #1 '打开顺序文件，我们可以使用Open语句 a = Encode("123") + vbCrLf + "10" + vbCrLf 'vbCrLf为回车 Print #1, a '写数据 Close #1 '关闭文件 End If |
|---|
对于手工改写配置文件，我一直无能为力，我试图在程序中把该文件隐藏掉。VB的示例代码如下：
1 | SetAttr FileName, vbSystem Or vbHidden '隐藏文件 |
|---|
但终归来说是治标不治本，文件仍然会被改写的。然后我想到修改配置文件后缀法，让人手工没那么容易打开文件，但是总是有方法打开的。最终让我想到一个简单的解决方法是，在程序中先打开配置文件，之后手工就无法打开了。VB的示例代码如下：
1 | Open FileName For Binary As #99 |
|---|
只是记得程序在改写该文件时要先关闭打开的文件，不然改写会失败的。VB的示例代码如下：
1 | Close #99 '关闭文件 |
|---|
总结一下，防止文件被改写的简单实现方式就是在程序中先打开该文件。
以上所述就是本文的全部内容了，希望大家能够喜欢。
原创声明：本文系作者授权腾讯云开发者社区发表，未经许可，不得转载。
如有侵权，请联系 cloudcommunity@tencent.com 删除。
原创声明：本文系作者授权腾讯云开发者社区发表，未经许可，不得转载。
如有侵权，请联系 cloudcommunity@tencent.com 删除。