Gestion de ficheros en servidor windows

Te puedes crear un script que elimine los archivos que tengan más de 30 días de antigüedad. A modo de ejemplo (lo acabo de crear en 5 minutos, ñor lo que deberás depurarlo) tienes esto

<pego>

'*********************************************************************************************
' Author: Marc [MVP Windows]
' Date: 10/03/2005
' Version: 1.0 Beta
' Revision:
' Sintaxis: deleteFiles DirOr AgeFile
'*********************************************************************************************

Const DeleteReadOnly = TRUE

Dim DirOr
Dim Ant

'*********************************************************************************************

On Error Resume Next
If WScript.Arguments.count > 0 Then
DirOr = WScript.Arguments.item(0)
Else
DirOr = InputBox("Nombre del directorio origen", "Directorio origen")
End If

If WScript.Arguments.count > 0 Then
Ant = WScript.Arguments.item(1)
Else
Ant = InputBox("Días de antigüedad", "Antigüedad")
End If

'*********************************************************************************************

strComputer = "."

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFiles = objFSO.GetFiles(DirOr)

For Each Files In objFiles.colFiles
If DateDiff("d", subCarpeta.DateCreated, Date) >= Ant Then
objFSO.DeleteFile(DirOr), DeleteReadOnly
End If
Next

Set objFiles = Nothing
Set objFSO = Nothing

</pego>



Saludos

Marc
MCP - MVP Windows Shell/User
Oracle9i Certified Associate (OCA)
NOTA. Por favor, las preguntas y comentarios en los grupos, así nos beneficiamos todos.

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no otorga ningún derecho.

"Ender" escribió en el mensaje news:3Z0Yd.25455$

Saludos al grupo.
Tengo un equipo instalado con windows xp y lo estoy utilizando como servidor
de archivos dentro de una red.
El problema que tengo es que quiero "depurar" periodicamente los ficheros
que se encuentran en una carpeta determinada (eliminar aquellos que tengan
más de un mes de antiguedad) y no me aclaro la verdad.
¿Alguna sugerencia?
Gracias por vuestro tiempo.
Un saludo.

Enderjcp