borrar fichero

[engonga]

Hola no se como puedo hacerlo ahora son las 2:00 Am y tengo que madrugar, no estoy derrotado.

quiero borrar un fichero del servidor con asp.

yo tengo esto.

__________________
if (rstnoticia("imagen") <> " ") Then
Dim registre
Dim direccio
direccion = "../fotos/"
registro = (rstnoticia.Fields.Item("imatge").Value)
Function borra()
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
FSO.DeleteFile(Server.MapPath(direccion)&"/"& registro)
End Function
Else
End If
____________________

es una página que borra un registro de una base de datos dicho registro tiene una imagen relacionada "imagen"

que esta en la carpeta ../fotos/

entonces tengo en un boton de
borrar, puesto esto...

____________________________
<form name="form1" method="POST" action="<%=MM_editAction%>">

<input type="submit" name="Submit" value="Borrar"
<% if (rstnoticia("imatge") <> " ") Then%>
onClick="<%=borra()%>"
<% Else
End If %>>
<input type="hidden" name="MM_delete" value="form1">
<input type="hidden" name="MM_recordId" value="<%= rstnoticia.Fields.Item("num_not").Value %>">
</form>
___________________________

Pero no me borra el fichero de la carpeta /fotos/

a veces me da el error que no se encuentra el fichero y otras que no tengo permisos. Lo estoy provando en local con ISS i he dado permisos de excritura a la carpeta /fotos/

pero sigue sin funcionar...

echenme un cable porfa.


gracias

[u_goldman]

No condiciones la función, de todos modos no se ejecuta hasta que la invoques...

Function borra(direccion, registro)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
FSO.DeleteFile(Server.MapPath(direccion) & registro)
Set FSO = Nothing
borra= true
End Function


if (rstnoticia("imagen") <> " ") Then
Dim registro
Dim direccion
direccion = "..\fotos\"
registro = (rstnoticia.Fields.Item("imatge").Value)
se_elimino= borra(direccion, registro)
Else
End If

ok, entonces una función te regresa un valor cierto?
Por qué no una sub?? Si necesitas la función, recuerda que la invocas con una variable en la cual vas a almacenar el valor regresado por dicha función

Si no te funciona, a lo mejor puede ser por el path, imprímelo antes de llamar a la función y ves que te trae...

Una cosa más, ve tu formulario, tengo un poco de prisa, pero asegúrate que esté llegando la variable correctamente...

Salu2,

[engonga]

como se imprime el path antes de mostralo,

algun ejemplo.


estoy viendo el codigo pero lo que quiero es que haya un form

con un checbox y si esta marcado me borre el fichero "adjunto".

Tipo hotmail que si amrcas el registro se borro el ficher.

[u_goldman]

<!--Formulario, por supuesto solo es una idea ok?-->

<form action=borrar.asp method=post>
<input type=checkbox value=<%=rs("campo_imagen")%> name=imagen><%=rs("campo_imagen")%>
<br>
<input type=submit value=Enviar>
</form>


'----------------------------------------------------------------------------------
'----borrar.asp-------

Sub borra(direccion, registro)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
FSO.DeleteFile(direccion & "\" & registro)
Response.Write("Archivo eliminado correctamente")
Set FSO = Nothing
End Sub

If request.form("imagen") <> "" Then
Dim registro
Dim direccion
direccion = Server.Mappath("..\fotos")
registro = request.form("imagen")
borra(direccion, registro)
End If

La idea es algo así, por supuesto lo tienes que adecuar a tus necesidades...

Salu2,