17/06/2005, 08:00
|
 | | | Fecha de Ingreso: agosto-2003 Ubicación: colgando de un trebol
Mensajes: 157
Antigüedad: 21 años, 8 meses Puntos: 0 | |
| sql="ficheros"
set rs=Server.CreateObject("adodb.recordset")
rs.Open sql,sock,1,2,2
if not rs.EOF then
fichero=rs("fichero")
end if
rs.Close
set rs=nothing
Set fso = CreateObject("Scripting.FileSystemObject")
if fichero<> "" then
ruta=ruta_fichero & "/" & fichero
if fso.FileExists(ruta) Then
fso.DeleteFile(ruta)
end if
end if
__________________
Daría todo lo que sé por la mitad de lo que ignoro |