Este es un Script que he hecho para un amigo. Como me ha parecido un poco extraño que me preguntase por esto lo voy a plasmar aquí por si a alguien mas le ayuda.

¿Que hace el Script?

En el directorio seleccionado lista todos los ficheros con la extensión definida (en este caso "001") y si han pasado mas de 15 días desde su última modificación lo borra.

CLIC PARA VER TEXTO PLANO
Visual Basic:
  1. sExt = "001"
  2. ahora=Now
  3. With CreateObject("Scripting.FileSystemObject")
  4.     For Each oFile In .GetFolder("c:\temp").Files
  5.         If UCase(.GetExtensionName(oFile.Name)) = Ucase(sExt) Then
  6. ' Comparación con el día de la ultima modificación
  7.             If datediff("d",oFile.DateLastModified,ahora)>= 15 Then
  8.                 Wsh.Echo oFile.Path
  9.                     .deletefile(oFile.path)
  10.             End If
  11.         End If
  12.     Next
  13. End With

Si queréis que la diferencia sea entre el día de creación y hoy el DateDiff ha de ser el siguiente:

CLIC PARA VER TEXTO PLANO
Visual Basic:
  1. If datediff("d",oFile.DateCreated,ahora)>= 15 Then

para diferencia entre el día del ultimo acceso y hoy:

CLIC PARA VER TEXTO PLANO
Visual Basic:
  1. If datediff("d",oFile.DateLastAccessed,ahora)>= 15 Then

Ojo que como os he dicho tal y como está el Script borraría el fichero.


Posts anterior y posterior:
«
»


Posts Relacionados: