Problema al borrar archivo con FSO.

[Moleman]

Éste es mi código:

<%

Dim fso

Set fso = Server.CreateObject("Scripting.FileSystemObject")

Dim folder

Set folder = fso.GetFolder(Server.MapPath("archivos/"))

dim archivo

archivo = Request.QueryString("archivo")

If fso.FileExists(archivo) Then

fso.DeleteFile(archivo)

Else

Response.Write("No se encontró el archivo")

End If

Set fso = Nothing

'Response.Redirect("archivos_listado.asp")

%>

Pues bien, pese a que los archivos existen, mi script nunca los encuentra, y siempre me devuelve la cadena "No se encontró el archivo".

¿Alguna idea? Son mis primeras pruebas con el FSO, y estoy un poco verde todavía.

Muchas gracias.

Moleman.

[gorka_22]

Haz un response.write() del archivo a ver que dice

[Moleman]

Ya lo hice. Y me da el nombre correcto del archivo. O sea, que la cadena que se pasa en el QueryString es la correcta, y el archivo existe, pero por alguna razón la fórmula "If fso.FileExists(archivo) Then fso.DeleteFile(archivo)" no me funciona.

Gracias.

Moleman.

[Shiryu_Libra]

intenta esto
Set folder = fso.GetFolder(Server.MapPath("archivos/"))

por este otro
Set folder = fso.GetFolder(Server.MapPath("/archivos/"))

[Moleman]

Perdón por la tardanza en contestar, estos días no he tenido tiempo de probar nada.

Gracias por tu ayuda, pero no funciona lo que me has dicho. Ahora me da error la página.

Lo dejo como estaba, y sigue pasando lo mismo, localiza el archivo pero no lo borra.

Supongo que es un poco extraño, esto. La verdad es que no sé qué hacer... ¿algún otro método para eliminar esos archivos?

Moleman.

[Shiryu_Libra]

este ejemplo funciona muy bien, trata de acomodarlo a lo que necesitas,
aki vienen casi todas las funciones

Código PHP:

  Sub ManipFiles
   Dim fso, f1, f2, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f1 = fso.CreateTextFile("c:\archprue.txt", True)
   Response.Write "Escribir archivo <br>"
   ' Escribir una línea.
   f1.Write ("Esto es una prueba.")
   ' Cerrar el archivo para la escritura.
   f1.Close
   Response.Write "Mover archivo a c:\tmp <br>"
   ' Obtener un identificador para el archivo en la raíz de C:\.
   Set f2 = fso.GetFile("c:\archprue.txt")
   ' Mover el archivo al directorio tmp.
   f2.Move ("c:\tmp\archprue.txt")
   Response.Write "Copiar archivo a c:\temp <br>"
   ' Copiar el archivo a \temp.
   f2.Copy ("c:\temp\archprue.txt")
   Response.Write "Eliminar archivos <br>"
   ' Obtener identificadores para la ubicaci&#243;n actual de los archivos.
   Set f2 = fso.GetFile("c:\tmp\archprue.txt")
   Set f3 = fso.GetFile("c:\temp\archprue.txt")
    Eliminar los archivos.
   f2.Delete
   f3.Delete
   Response.Write "Terminado"
End Sub 
   

suerte