Foros del Web » Programando para Internet » ASP Clásico »

Eliminar ficheros del servidor

Estas en el tema de Eliminar ficheros del servidor en el foro de ASP Clásico en Foros del Web. Hola, tengo un problema que me está volviendo loco 4 días ya, necesito eliminar ficheros del servidor con ASP y no me funciona, no se ...
  #1 (permalink)  
Antiguo 19/11/2002, 04:56
 
Fecha de Ingreso: noviembre-2002
Mensajes: 1
Antigüedad: 22 años, 5 meses
Puntos: 0
Eliminar ficheros del servidor

Hola, tengo un problema que me está volviendo loco 4 días ya, necesito eliminar ficheros del servidor con ASP y no me funciona, no se hacerlo vamos.

Veamos, este es el código que pretento usar para eliminar pero ... a pesar de que entro dentro del if (es decir, me encuentra el fichero) no me deja borralo pues afirma que no tengo permisos.

Set fs = CreateObject("Scripting.FileSystemObject")
patht = Server.mappath("..\..")
Response.write(patht & "\fotos_weblog\imagen.jpg")
if fs.FileExists(patht & "\fotos_weblog\imagen.jpg") then
Response.write("Existe")
fs.DeleteFile (patht & "\fotos_weblog\imagen.jpg")
end if

Sin embargo, cuando veo (por FTP, pues no tengo acceso shell al servidor) los permisos que tengo observo que tengo permisos totales tanto para el usuario como para el grupo y otros. ¿Por qué me dice entonces que no tengo permisos?

¿Puede estar el ASP configurado de alguna manera en el servidor de forma que me impida el acceso al sistema de ficheros a pesar de que el fichero si que tenga permisos?¿o algo así?

Si a alguien se le ocurre algo, se lo agradecería enormemente.
Muchas gracias por atenderme.
  #2 (permalink)  
Antiguo 19/11/2002, 06:38
 
Fecha de Ingreso: julio-2002
Ubicación: Stgo
Mensajes: 164
Antigüedad: 22 años, 9 meses
Puntos: 0
'Elimina archivos de carga una vez hecha esta, para evitar problemas!
Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & "<br>"
Set a = fso.GetFile(folderspec&"\"&f1.name)
if right(f1.name,3)="txt" then
a.Delete
end if
Next
ShowFolderList = s
End Function

Ahi tienes la funcion que yo uso, me funciona super bien, no le puse permisos especiales que yo recuerde y le puse un filtro para eliminar el Tipo de archivos que yo quiera :P jejeje

mucha suerte
Alejandro !!!
__________________
Saludos
Alejandro Antonio :-D
from ChiLE :pensando:
[email protected]
icq:14648436
[email protected]
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 17:13.