Pesoal, o que ha de errado nesse instrução, eu estou excluindo um arquivo, porem se der erro dizendo que o arquivo não exista ele tem que iguinorar, mas ele esta me dando a menssagem de erro mesmo assim.

 

Abraços

Vc tem q tratar o erro

 

On Error GoTo tratar
Kill (App.Path & "imgF1-" & txtFields(0).Text & ".jpg")
tratar:
'err.number = 53 then msgbox "O arquivo não foi localizado"

if err.number = 53 then resume next

if err.number <> 0 and err.number <> 53 then msgbox err.description & vbcrlf & err.number, vbcritical

 

t+

on error goto trataerro

if dir$(app.path & "imgF1-" & txtFields(0).text & ".jpg") <> "" then

Kill (App.Path & "imgF1-" & txtFields(0).Text & ".jpg")
end if

exit sub

trataerro:

msgbox err.number