Por favor, limpiar tu espacio !

Por favor, limpiar tu espacio !

Por favor, limpiar tu espacio ! : Multi-millones de consejos para hacer su vida mas facil.

Si que es una buena pregunta. En este breve articulo voy a tratar de motivar a los programadores de la limpieza despues de sus programas.
En este breve articulo voy a tratar de motivar a los programadores de limpieza
despues de sus programas. Un programa tiene varias de archivos para mantener un seguimiento
en este mundo tan ocupado.
Un programa admite archivos como el archivo Ini tipo. La regla aqui
es quitar cosas viejas de el archivo ya no esta utilizando.
tiene una nueva version y cambiar el tema de un tipo a
otro. Por favor eliminar el antiguo saber donde y que - el
no.
Un programa puede crear archivos como una salida o la funcion del programa.
En general, la regla es que el programa que crea el programa
se la da a otro (otro programa). En un mundo bueno la
'otros' programa ahora es propietaria de los archivos y debe ser la que
elimina los archivos cuando ya no sean necesarios o no actualizados.
Un programa puede crear archivos de registro. Esto es para mi siempre es una buena idea
para crear archivos de registro. El programa debe ser capaz de ejecutar en tres
modos diferentes: el modo de depuracion Completo, registro de modo de error, y no absoluto
registro. Una inteligente manera de hacer esto es crear una carpeta
estructura que permite decir bajo el Exe ubicacion o definido por el usuario en
el programa de instalacion. En virtud de la carpeta de Registro o como se llame crear diaria
carpetas con el nombre de la carpeta de AAAAMMDD de esta manera el programa puede
facil de borrar viejas carpetas con solo leer el nombre de la carpeta.
Se puede seleccionar para guardar todos los archivos de registro, borrar todos los archivos de registro que se
mayores de 30 - 60 - 90 dias, o usted puede decir que yo solo quiero el ultimo
7 carpetas. La ultima opcion es ideal para los programas que solo puede ser
utilizado en base semanal.
Si esta en modo de depuracion completa usted puede incluso dejar que el programa de correo electronico
los archivos de registro, por lo que puede supervisar el progreso del programa.
puede llevar esto a un perfilado nivel en el que iniciar sesion cada funcion y
a continuacion, puede ver que sus clientes realmente estan utilizando y que no lo es
que utilizan mucho. Muy bueno para las actualizaciones de la informacion.
Un truco con respecto a los archivos de registro es crear como ASCII delimitado por comas
los archivos (se puede utilizar el Commatext de la propiedad en el TStringList). Con
un archivo CSV, puede utilizar la mayoria de administrador de base de datos para el masaje de los datos
el archivo. Si usted no esta en el negocio de consultoria en el archivo CSV puede
ayudar con su cliente. Si un cliente quiere un informe especial puede
guia a Excel y el libro 'Excel para dummies' y que los clientes
puede crear informes hasta que el papel sale de la impresora.
de Nuevo por favor, tienen una funcion que va de limpieza de archivos antiguos. Aqui es
otra solucion.
El DeleteAllFilesOlderThan funcion toma un camino como el
'C:/MyProgram/' o un nombre de archivo completo como 'C:/MyProgram/Tmp/*.Txt'.
Si la Fecha es 'Ahora', a continuacion, todos los archivos en la ruta de acceso o con el
nombre de archivo sera eliminado.

{===================================================================}
Funcion DeleteAllFilesOlderThan(const FileName: string
& nbsp & nbsp Fecha: TDateTime): Boolean
{===================================================================}
var
& nbsp & nbsp SearchRec: TSearchRec
& nbsp & nbsp sFile, sPath: String
begin
& nbsp & nbsp Resultado := True

& nbsp & nbsp sFile := ExpandFileName(nombre de archivo)
& nbsp & nbsp sPath := ExtractFilePath(sFile)
& nbsp & nbsp Si FindFirst(sFile, faAnyFile, SearchRec) = 0, Entonces
& nbsp & nbsp Empezar
& nbsp & nbsp & nbsp & nbsp Si (SearchRec.Nombre <> ') Y (SearchRec.Nombre de <> '.') Y
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp (SearchRec.Nombre de <> '..'), a Continuacion,
& nbsp & nbsp & nbsp & nbsp Empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Si FileDateToDateTime(FileAge(sPath SearchRec.Nombre)) <,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Si No SysUtils.DeleteFile(sPath SearchRec.Nombre), a Continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado := False
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Final
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Final
& nbsp & nbsp & nbsp & nbsp Final
& nbsp & nbsp & nbsp & nbsp Mientras FindNext(SearchRec) = 0
& nbsp & nbsp & nbsp & nbsp Empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Si (SearchRec.Nombre <> ') Y (SearchRec.Nombre de <> '.') Y
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp (SearchRec.Nombre de <> '..'), a Continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Si FileDateToDateTime(FileAge(sPath SearchRec.Nombre)) <,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Si No SysUtils.DeleteFile(sPath SearchRec.Nombre), a Continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado := False
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Final
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Final
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Final
& nbsp & nbsp & nbsp & nbsp Final
& nbsp & nbsp Final
& nbsp & nbsp;
& nbsp & nbsp SysUtils.FindClose(SearchRec)
fin

yo uso esta funcion como una funcion de base para otras funciones como:

{==================================================================}
Funcion DeleteAllFilesOlderThan30Days(const FileName: string): Boolean
{==================================================================}
Begin
& nbsp & nbsp Resultado := DeleteAllFilesOlderThan(nombre de archivo, IncMonth(Ahora, -1))
Fin
& nbsp;
{===================================================================}
Funcion DeleteAllFilesOlderThan60Days(const FileName: string): Boolean
{===================================================================}
Begin
& nbsp & nbsp Resultado := DeleteAllFilesOlderThan(nombre de archivo, IncMonth(Ahora, -2))
Fin
{===================================================================}
Funcion DeleteAllFilesOlderThan90Days(const FileName: string): Boolean
{===================================================================}
Begin
& nbsp & nbsp Resultado := DeleteAllFilesOlderThan(nombre de archivo, IncMonth(Ahora, -3))
Fin

El Delphi IncMonth tambien funciona con numeros negativos por lo que si el 'Ahora' es
el 13 de Mayo y esta utilizando -2 que se busca en el 13 de Marzo. Asi que ahora
el programa debe saber. La limpieza de todos los archivos antiguos y archivos
el programa ya no se esta utilizando.