Hay un archivo de configuración en un pequeño programa que escribí recientemente. Este archivo es crucial para todo el programa. Si se elimina o se reescribe, todo el programa no se puede ejecutar o no se puede cerrar después de ejecutarlo. Así que he estado buscando una manera de hacer imposible reescribir archivos manualmente.
"Eliminar" es fácil de resolver. Busque la ruta del archivo de configuración en el programa, créelo si está vacío y proporcione algunos valores predeterminados. El código de muestra de VB es el siguiente:
FileName = App.Path + "/CONFIG"'Si el archivo no existe, cree el archivo. Si Dir(FileName) = "" Luego abra FileName para la salida como #1 'Para abrir un archivo secuencial, podemos usar la instrucción Open a = Codificar(" 123") + vbCrLf + "10" + vbCrLf 'vbCrLf es retorno de carro Imprimir #1, a 'Escribir datosCerrar #1 'Cerrar el archivoFinalizar siNo pude reescribir manualmente el archivo de configuración. Intenté ocultar el archivo en el programa. El código de muestra de VB es el siguiente:
SetAttr FileName, vbSystem O vbHidden 'Archivo oculto
Pero en última instancia, se trata de tratar los síntomas en lugar de la causa raíz, y aun así el documento tendrá que reescribirse. Luego pensé en modificar el método del sufijo del archivo de configuración para que no fuera fácil para las personas abrir el archivo manualmente, pero siempre hay una manera de abrirlo. Al final, pensé en una solución simple: primero abra el archivo de configuración en el programa y luego no se podrá abrir manualmente. El código de muestra de VB es el siguiente:
Abra el nombre del archivo para binario como #99
Solo recuerde que el programa primero debe cerrar el archivo abierto al reescribirlo; de lo contrario, la reescritura fallará. El código de muestra de VB es el siguiente:
Cerrar #99 'Cerrar el archivo
En resumen, la forma sencilla de evitar que se sobrescriba un archivo es abrir el archivo primero en el programa.
Lo anterior es el contenido completo de este artículo, espero que les guste a todos.