В небольшой программе, которую я недавно написал, есть файл конфигурации. Если его удалить или переписать, вся программа не сможет запуститься или не будет закрыта после запуска. Поэтому я искал способ сделать невозможным перезапись файлов вручную.
«Удалить» решается легко. Найдите в программе путь к файлу конфигурации, создайте его, если он пуст, и задайте некоторые значения по умолчанию. Пример кода VB выглядит следующим образом:
FileName = App.Path + "/CONFIG"'Если файл не существует, создайте файлIf Dir(FileName) = "" Затем откройте имя файла для вывода как #1 'Чтобы открыть последовательный файл, мы можем использовать оператор Open a = Encode(" 123") + vbCrLf + "10" + vbCrLf 'vbCrLf - это возврат каретки. Печать №1, a 'Запись данных. Закрытие № 1 'Закрытие файла. Конец, еслиМне не удалось вручную переписать файл конфигурации. Я пытался скрыть файл в программе. Пример кода VB выглядит следующим образом:
SetAttr FileName, vbSystem Или vbHidden 'Скрытый файл
Но в конечном итоге речь идет о лечении симптомов, а не первопричины, и документ все равно будет переписан. Затем я подумал об изменении метода суффикса файла конфигурации, чтобы людям было нелегко открыть файл вручную, но всегда есть способ открыть его. В итоге я придумал простое решение: сначала открыть файл конфигурации в программе, а потом его нельзя будет открыть вручную. Пример кода VB выглядит следующим образом:
Открыть имя файла для двоичного файла как #99
Только помните, что программа при перезаписи файла должна сначала закрыть открытый файл, иначе перезапись не удастся. Пример кода VB выглядит следующим образом:
Закрыть #99 'Закрыть файл
Подводя итог, простой способ предотвратить перезапись файла — сначала открыть файл в программе.
Выше приведено все содержание этой статьи, надеюсь, она вам всем понравится.