14/12/2005, 12:46
|
| | | Fecha de Ingreso: octubre-2005
Mensajes: 50
Antigüedad: 18 años, 7 meses Puntos: 0 | |
 ...Aqui te va el ejemplo JUANUT
...Lo que yo hago es esto, creo que tambien es muy sencillo...
On Error GoTo NOHAGASNADA
Screen.MousePointer = 11
FileCopy "RUTA DEL ARCHIVO", "RUTA DONDE LO DECEAS COPIAR"
var = MsgBox("La base de datos ha sido respaldada con exito", vbExclamation, "Exito")
NOHAGASNADA:
Screen.MousePointer = vbDefault
...Y LISTO!...Espero te sirva...Saludos! |