error cuando intento borrar un archivo que no existe ;)

[suntus]

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
foto="D:\ssss\miweb.com\Html\fotos\"
foto=foto&ref&".jpg"
objFSO.DeleteFile foto

pues eso con este codigo intento borrar un archivo, pero cuando ese archivo no esta en el server me lanza un error,

¿como puedo hacer para que si el archivo no esta en el server, no pase nada y siga ejecutando el resto del codigo?

gracias.

[Muzztein]

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
foto="D:\ssss\miweb.com\Html\fotos\"
foto=foto&ref&".jpg"
on error resume next
objFSO.DeleteFile foto

[AlZuwaga]

Un poco más pro ;)

Código:

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
foto="D:\ssss\miweb.com\Html\fotos\"
foto=foto&ref&".jpg"
If objFSO.FileExists(foto) Then
objFSO.DeleteFile foto
Else
Response.Write("El archivo " & foto & " no existe.")
End if

[suntus]

gracias a los dos, para lo que necesito me sobra con on error resume next

saludos.

[Muzztein]

leru leru leru





(habia borrado este mensaje cuando queria borrar otro..jejejej)

[u_goldman]

Iniciado por suntus

gracias a los dos, para lo que necesito me sobra con on error resume next

saludos.

Este comentario, me trae a la menta algo que siempre he pensado, es cierto que los lenguajes de programación, te dan la posibilidad del manejo de errores, cosa que es genial, pero es correcto(desde un punto de vista de optimización), solucionar problemas vanos como este con un error handler? siendo que se pueden evitar? ustedes que opinan?

Salu2,

[AlZuwaga]

Yo opino que... ¿para qué usar un error handler al ocurrir un error si directamnete éste se puede evitar?

leru leru leru

Jjajajaja

[Neuron_376]

En realidad la mejor estructura es aquella que usa ambos metodos, es decir:

Muzztein

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
foto="D:\ssss\miweb.com\Html\fotos\"
foto=foto&ref&".jpg"
on error resume next '''''''' Esto es totalmente necesario para evitar errores en pantalla, etc...

'''' Pero justo aqui...

AZ

If objFSO.FileExists(foto) Then
objFSO.DeleteFile foto

'''' Aqui, Neuron_376

if Err.Number > 0 then
Response.write "Hubo un error al intentar accesar al archivo que deseas borrar"


end if

Else

Response.Write("El archivo " & foto & " no existe.")

End if



-------------------------

La razon es facil, el on error evita que el usuario vea cualquier error posible, porque aun con lo que menciona AZ puede existir error cuando un archivo esta marcado como READONLY, entonces habra error aun cuando el archivo si existe.

Pero si lo dejas solo con on error y lo dejas correr vas a provocar un error de compilacion y el codigo no parara en ningun punto, y tendras accesos al disco duro totalmente innecesarios, entonces con unas pocas lienas de codigo haces que todo sea mas eficiente, y teniendo en cuenta todos los posibles casos logras que tu script no tenga ningun bug posible y siga siendo lo mas eficiente posible.

Esa es mi opinión...

Suerte!!

[Myakire]

¡¡¡TOOOMEENLA!!!!, ¿les quedó alguna duda?, jejeje, y eso que Neuron ni hizo " leru leru leru"

[u_goldman]

leru, leru, leru

[Neuron_376]

Solo trato de colaborar :-p

jajajaja

Suerte!!

[u_goldman]

Se me hace que eso fue por el letrero de Myakire je je je, ya ves master Tigurón? te dije que refutaras el nombramiento...

[AlZuwaga]

Totalmente de acuerdo con Neurón!

Aunque...

object.DeleteFile file [, force]

This method is used to delete a specified file or files (using wildcards). The optional force parameter returns a Boolean value - True allows files with read-only attributes to be deleted, while False (default) does not. Trying to delete a read-only file without setting force to True will return an error.

Lo que no sé que ocurre es si justo el archivo a eliminar está en uso (no sé por qué lo estaría, pero podría ¿no?)

Entonces, propongo ésto:

Código:

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
foto="D:\ssss\miweb.com\Html\fotos\"
foto=foto&ref&".jpg"
If objFSO.FileExists(foto) Then
	on error resume next '''''''' Esto es totalmente necesario para evitar errores en pantalla, etc...
	objFSO.DeleteFile foto, force 'si está read-only, al carajo y la borramos igual :D
		if Err.Number > 0 then 'Oppsssss!!!
			Response.write "Hubo un error al intentar accesar al archivo que deseas borrar"
		end if
Else
	Response.Write("El archivo " & foto & " no existe.")
End if

Bueno, quedó depurado ya o le ven alguna posibilidad más?


¡¡¡TOOOMEENLA!!!!
jajaja, no se crean que es jodaaaaa

[Neuron_376]

Yo dejaria el on error justo donde lo deje, de hecho quizas al principio, porque lo mismo, al momento de manipular un archivo bloqueado etc, podrias obtener errores. Entonces si sabes que vas a manejar elementos muy delicados, entonces mejor asegurar desde el principio que no vas a tener resultados en pantalla erroneos.

Lo que pasa cuando un archivo esta siendo accesado por otra persona y tu lo borras con FORCE es que puedes provocar un error no a ti en pantalla, sino a la otra persona que lo estaba mirando en ese momento, por lo tanto no es recomendable, es muy comun cuando tienes por ejemplo fotos en tu cuenta publica, si la borras directamente las persona que estan viendo tus fotos en tu cuenta pueden ver errores imprevistos, porque?, porque en ese momento el archivo estaba bloqueado para borrarse, y con force no hiciste caso a esa restriccion de sistema.

Por eso mejor que a ti al momento de borrar tus fotos te diga un mensaje controlado de que esta pasando, en lugar de tener errores criticos en otros puntos del sistema.

Ademas, usando force tambien arroja error claro si llegan a ese punto dos usuarios al mismo tiempo, pero bien, como tienes el on error justo antes por eso no miraras el error, y en ese caso esta bien.

Por eso pienso que lo mejor es no usar Force para todo, de hecho si se usa, pero en partes especiales de los sistemas, ejemplo, borrando un archivo temporal, borrando respaldos de bases de datos, etc., es decir, cosas que no quieres PARA NADA que esten ahi, pero es a nivel administración, no a nivel WEB para usuarios.

Suerte!!

[Myakire]

En mi particular punto de vista On Error debe ser utilizado para dar alternativa a "errores" y por errores yo entiendo a eventos especiales que no pueden ser previstos por código. El hecho de si un archivo esta o no esta, pues es una simple validación, pero el caso de si el archivo esta bloqueado, por ejemplo, si es un candidato para el on Error (si es que el lenguaje no proporciona mecanismos para verificarlo).
En VBScript no existen mecanismos estructurados de manejo de errores y creo que no hay métodos para uno arrojar (raise) errores propios. Entonces nos quedan solo manejos genericos de errores para todo aquello que no se pueda validar. Aunque siempre tendremos la alternativa de una página de error a nivel del IIS.