最近作成した小さなプログラムに構成ファイルがあります。このファイルはプログラム全体にとって重要です。これが削除されたり書き換えられたりすると、プログラム全体が実行できなくなったり、実行後に閉じることができなくなります。そこで、手動でファイルを書き換えられないようにする方法を探していました。
「削除」は、プログラム内で構成ファイルのパスを見つけて、空の場合は作成し、いくつかのデフォルト値を指定することで簡単に解決できます。 VBのサンプルコードは以下の通りです。
FileName = App.Path + "/CONFIG"'ファイルが存在しない場合は、ファイルを作成しますIf Dir(FileName) = "" then Open FileName For Output As #1 'シーケンシャル ファイルを開くには、Open ステートメントを使用できます。 = Encode(" 123") + vbCrLf + "10" + vbCrLf 'vbCrLf はキャリッジリターンです Print #1, a 'Write dataClose #1 'ファイルを閉じますEnd Ifプログラム内で設定ファイルを非表示にしようとしたため、手動で書き換えることができませんでした。 VBのサンプルコードは以下の通りです。
SetAttr FileName、vbSystem または vbHidden '隠しファイル
しかし、最終的には根本原因ではなく症状を治療するものであり、文書は今後も書き直されることになる。次に、構成ファイルの接尾辞の方法を変更して、ユーザーがファイルを手動で開くことが簡単にならないようにすることを考えましたが、ファイルを開く方法は常にあります。結局、私は簡単な解決策を思いつきました。まずプログラムで構成ファイルを開きます。その後、手動で開くことはできなくなります。 VBのサンプルコードは以下の通りです。
バイナリのファイル名を #99 として開きます
ファイルを書き換えるとき、プログラムはまず開いているファイルを閉じる必要があることに注意してください。そうしないと、書き換えは失敗します。 VBのサンプルコードは以下の通りです。
閉じる #99 'ファイルを閉じます
要約すると、ファイルの上書きを防ぐ簡単な方法は、最初にプログラムでファイルを開くことです。
以上がこの記事の全内容です。皆さんに気に入っていただければ幸いです。