borrar en archivo

[mamon]

Còmo hago para borrar un archivo en una carpeta con còdigo asp.

<center><font face="verdana" size="1" color="black">Muy pronto no más aburrimiento en internet, siempre abrá algo nuevo para ver...[/CODE]
</center>

[DanielRey]

Hola Mamón :)

Con el objeto FileSystemObject.

Pero sólo podés borrar archivos en carpetas del servidor que aloja la página.

<table><tr><td><IMG src=banderas/argentina.gif></td><td><small>Alta en el cielo, un águila guerrera<br>audaz se eleva, en vuelo triunfal.<br>Azul un ala, del color del cielo.<br>Azul un ala, del color del mar.</small></td></tr></table>

[mamon]

OK, pero no se usarlo, no se si me pueden ayudar.

<center><font face="verdana" size="1" color="black">Muy pronto no más aburrimiento en internet, siempre abrá algo nuevo para ver...[/CODE]
</center>

[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(&quot;Scripting.FileSystemObject&quot ;)
por:
Set fso = Server.CreateObject(&quot;Scripting.FileSystemObje ct&quot;)

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

Suerte ;)

[mamon]

Gracias, lo voy a probar y te cuento....

<center><font face="verdana" size="1" color="black">Muy pronto no más aburrimiento en internet, siempre abrá algo nuevo para ver...[/CODE]
</center>

[DanielRey]

Dijiste que me ibas a contar... :(
¿Todavía no lo probaste???

[arlin]

Yo probe este codigo, pero me da un error, en mi carpeta yo tengo permisos de lectura y escritura, y puedo hacer uploads, sin embargo, no puedo borrar, porque me dice que no tengo permiso..
me da este error

Microsoft VBScript runtime error '800a0046'

Permission denied

, cual puede ser el problema, necesito otro permiso ademas del de lectura y escritura?

saludos...