Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Private Sub Command1_Click() on error goto ErrorCatcher FileCopy "C:\otrofichero.txt", "C:\mifichero.txt" Kill "C:\otrofichero.txt" ErrorCatcher: err.clear End Sub