borrar en archivo

[DanielRey]

Güeno, pero no te enojes.

Mirá, justo hoy hice y probé un script para borrar archivos más viejos que determinada fecha.
Lo hice para ejecutarlo desde la línea de comandos, no desde una página ASP, pero creo que es casi lo mismo.

Lo único que le cambié aquí fue la línea:
Set fso = CreateObject("Scripting.FileSystemObject&quot ;)
por:
Set fso = Server.CreateObject("Scripting.FileSystemObje ct")

Además, como estamos hablando de BORRAR, y es muy lamentable cometer errores en ese tipo de operaciones, lo que en realidad hace es mostrarte que borraría.
Si funciona como esperabas, se comentan los MsgBox y se descomenta la línea que borra y listo.

Para usarlo en una página ASP, habría que cambiar los MsbgBox por Response.Write.

Probalo y después me contás, ¿si?

'Secuencia de comandos para eliminar archivos mas antiguos que determinada fecha

'Declaración de variables
Dim fso, f, f1, fc

'Crear el objeto Archivo
Set fso = Server.CreateObject("Scripting.FileSystemObje ct")
'Leer una carpeta
Set f = fso.GetFolder("D:\SAMPLES\cat")
'Lee los archivos incluidos
Set fc = f.Files
For Each f1 in fc
'Primero probemos que todo esté bien
MsgBox (f1.name & " " & f1.DateCreated & " " & CDate("1/7/2002"))
if f1.DateCreated < CDate("1/7/2002") then
MsgBox ("Se borra")
else
MsgBox ("No se borra")
End If
'Si todo andubo bien, comentamos lo anterior y descomentamos esta línea
' if f1.DateCreated < CDate("1/7/2002") then f1.delete
Next

Suerte ;)