VB简单实现防止文件被改写
2015-06-17 09:37
921 查看
最近在写的一个小程序中有个配置文件,这个文件对整个程序来说是至关重要的,如果它被删除或者改写的话,整个程序无法运行,或者运行后无法关闭。所以我一直在寻找如果让手工无法改写文件的方法。
对于“删除”来说是很容易解决的,程序中查找配置文件的路径,若为空则创建,并给些默认值。VB的示例代码如下:
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的示例代码如下:
SetAttr FileName, vbSystem Or vbHidden '隐藏文件
但终归来说是治标不治本,文件仍然会被改写的。然后我想到修改配置文件后缀法,让人手工没那么容易打开文件,但是总是有方法打开的。最终让我想到一个简单的解决方法是,在程序中先打开配置文件,之后手工就无法打开了。VB的示例代码如下:
Open FileName For Binary As #99
只是记得程序在改写该文件时要先关闭打开的文件,不然改写会失败的。VB的示例代码如下:
Close #99 '关闭文件
总结一下,防止文件被改写的简单实现方式就是在程序中先打开该文件。
以上所述就是本文的全部内容了,希望大家能够喜欢。
您可能感兴趣的文章:
相关文章推荐
- VBS教程:运算符-运算符(+)
- VB实现的16位和32位md5加密代码分享
- VB6中的LSet语句和RSet语句详解
- VB实现的递归复制文件和搜索文件的代码分享
- VB XMLHTTP使用方法
- VB语言使用ADO连接、操作SQLServer数据库教程
- VB使用shell函数打开外部exe程序的实现方法
- VB的TextBox文本框实现垂直居中显示的方法
- VBS教程:运算符-\ 运算符
- VBS教程:运算符-减运算符 (-)
- VBS教程:运算符-除运算符 (/)
- VB调用Word拼写检查功能实例
- VB读取线程、句柄及写入内存的API代码实例
- VB实现鼠标绘图实例代码
- VB使用XMLHTTP实现Post与Get的方法
- VB实现屏蔽文本框右键菜单的复制、粘贴等功能的方法
- VB的32位程序在64位系统中出现文件和注册表自动转向的解决方法
- VBS教程:运算符-乘运算符 (*)
- VB中的RasEnumConnections函数返回632错误解决方法
- SQL和VB连接