Ver originalFunction ValidarRuta(Ruta As String) As BooleanOn Error Resume NextValidarRuta = (Dir(Ruta) <> "" And Ruta <> "")End Function