Borrar archivos de una fecha hacia atrás en Fox
Hola, buenas tardes
Me gustaría saber si hay una manera de por medio de código eliminar los archivos más viejos de una carpeta.
Gracias por tu ayuda
Me gustaría saber si hay una manera de por medio de código eliminar los archivos más viejos de una carpeta.
Gracias por tu ayuda
{"Lat":25.244695951306,"Lng":-112.1923828125}
1 Respuesta
Respuesta de ingesoft
1
La idea es solo saber que archivos están con la fecha anterior a la que quieres borrar con este ejemplo podrás cargar los datos de una crapeta original mente sirve para ver si hay archivos en una carpeta pero en el array carga todos lo datos del los archivos revísalo.
=ADIR(VEC,"C:\SISTEMA\*.TXT") && Cargo un vector con las propiedades de todos los archivos de texto en la carpeta SISTEMA
IF ALEN(VEC)>0 && Si hay archivos de Texto
FOR I=1 TO ALEN(VEC) STEP 5
WAIT VEC(I) WIND && Muestro el nombre del archivo de texto
ENDFOR
ELSE
= MESSAGEBOX("NO EXISTEN ARCHIVOS DE TEXTO, 16, "")
Endif
=ADIR(VEC,"C:\SISTEMA\*.TXT") && Cargo un vector con las propiedades de todos los archivos de texto en la carpeta SISTEMA
IF ALEN(VEC)>0 && Si hay archivos de Texto
FOR I=1 TO ALEN(VEC) STEP 5
WAIT VEC(I) WIND && Muestro el nombre del archivo de texto
ENDFOR
ELSE
= MESSAGEBOX("NO EXISTEN ARCHIVOS DE TEXTO, 16, "")
Endif
