VB簡單實現(xiàn)防止文件被改寫
更新時間：2015年06月17日 09:37:48 投稿：hebedich
這篇文章主要介紹了VB簡單實現(xiàn)防止文件被改寫的方法，十分的簡單實用，有需要的小伙伴可以參考下。
最近在寫的一個小程序中有個配置文件，這個文件對整個程序來說是至關(guān)重要的，如果它被刪除或者改寫的話，整個程序無法運行，或者運行后無法關(guān)閉。所以我一直在尋找如果讓手工無法改寫文件的方法。
對于“刪除”來說是很容易解決的，程序中查找配置文件的路徑，若為空則創(chuàng)建，并給些默認值。VB的示例代碼如下：
FileName = App.Path + "\CONFIG"
'如果文件不存在，則創(chuàng)建文件
If Dir(FileName) = "" Then
Open FileName For Output As #1 '打開順序文件，我們可以使用Open語句
a = Encode("123") + vbCrLf + "10" + vbCrLf 'vbCrLf為回車
Print #1, a '寫數(shù)據(jù)
Close #1 '關(guān)閉文件
End If
對于手工改寫配置文件，我一直無能為力，我試圖在程序中把該文件隱藏掉。VB的示例代碼如下：
SetAttr FileName, vbSystem Or vbHidden '隱藏文件
但終歸來說是治標不治本，文件仍然會被改寫的。然后我想到修改配置文件后綴法，讓人手工沒那么容易打開文件，但是總是有方法打開的。最終讓我想到一個簡單的解決方法是，在程序中先打開配置文件，之后手工就無法打開了。VB的示例代碼如下：
Open FileName For Binary As #99
只是記得程序在改寫該文件時要先關(guān)閉打開的文件，不然改寫會失敗的。VB的示例代碼如下：
Close #99 '關(guān)閉文件
總結(jié)一下，防止文件被改寫的簡單實現(xiàn)方式就是在程序中先打開該文件。
以上所述就是本文的全部內(nèi)容了，希望大家能夠喜歡。
相關(guān)文章
這篇文章主要介紹了VB實現(xiàn)鼠標繪圖實例代碼,很實用的一個功能,需要的朋友可以參考下2014-07-07
本人一覺醒來閑得無聊，正在學(xué)習(xí)VB，便用VB寫個簡易的計算器吧！鞏固基礎(chǔ)2012-09-09
這篇文章主要介紹了VB讀取線程、句柄及寫入內(nèi)存的API代碼實例,需要的朋友可以參考下2014-07-07
VB6實現(xiàn)連接Access數(shù)據(jù)庫的ADODB代碼實現(xiàn)方法
這篇文章主要介紹了VB6實現(xiàn)連接Access數(shù)據(jù)庫的ADODB代碼實現(xiàn)方法,對于初學(xué)者掌握VB鏈接access數(shù)據(jù)庫有著很好的借鑒價值,需要的朋友可以參考下2014-07-07
如何產(chǎn)生真正的隨機函數(shù)？...2007-03-03
關(guān)于MSCOMM控件的一些說明...2007-03-03
這篇文章主要介紹了VBA中連接SQLSERVER數(shù)據(jù)庫例子,VBA是指Visual Basic for Applications,是Visual Basic的一種宏語言,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了VBA中操作Excel常用方法總結(jié),包含關(guān)閉工作簿、打開工作簿、切換工作表等,需要的朋友可以參考下2014-07-07
一般來說,VB和VC共同編程有3種方式：一種是VC生成DLL,在VB中調(diào)用DLL；一種是VC生成ActiveX控件(.ocx),在VB中還有一種是在VC中生成ActiveX Automation服務(wù)器,在VB中調(diào)用2013-04-04
VB判斷地址是否存在的XMLHTTP方法2008-07-07