Borrar Archivo desde Macro

Hola HM,

... si ya estas usando la instruccion 'On Error Resume Next'...

[creo que]... no tiene sentido 'pasar' el procedimiento por otros
'filtros' -?-

Mi idea era controlar los errores en todo momento - en tu codigo el usuario
no sabra por que no ha podido eliminar el archivo e igual no sabra
corregirlo, digo yo ;-)

Saludos,
KL

hola, KL !

Hola HM,
... si ya estas usando la instruccion 'On Error Resume Next'...
[creo que]... no tiene sentido 'pasar' el procedimiento por otros 'filtros' -?-

Mi idea era controlar los errores en todo momento
- en tu codigo el usuario no sabra por que no ha podido eliminar el archivo e igual no sabra corregirlo, digo yo ;-)

tienes razon [yo solo trataba de 'adelgazar' y 'aprovechar' la instruccion 'On Error Resume Next'] :))
si consideramos que las unicas fallas 'esperables' con la intencion de eliminar archivos por medio de dir() y kill son...
-> dir -> que el archivo no exista
-> kill -> que el archivo este abierto
[o el usuario/programador conoce/sabe lo que se puede esperar... y/o puedes informar al usuario +/- como sigue]...
Sub EliminarArchivo()
Dim Archivo As String: On Error Resume Next
Archivo = "D:\Carpeta inexistente\Archivo que no existe.abc"""
If Dir(Archivo) = "" Then MsgBox "El archivo no existe !!!": Exit Sub
Kill Archivo
If Dir(Archivo) <> "" Then MsgBox "No se puede eliminar un archivo abierto :("
End Sub

saludos,
hector.