14/02/2006, 01:57
|
 | | | Fecha de Ingreso: mayo-2004 Ubicación: Barcelona - España , Morelia - México
Mensajes: 162
Antigüedad: 21 años Puntos: 0 | |
| On Error GoTo NOHAGASNADA
Dia = Dia(Now)
Screen.MousePointer = 11
FileCopy App.Path & "\Beneranda.mdb", App.Path & "\Respaldos\Dia+beneranda.mdb"
NOHAGASNADA:
Screen.MousePointer = vbDefault
__________________
Un saludo, MeXiCaN :golpeado: :adios:
Poco es tanto, cuando poco necesitas. E.Bunbury
Siempre que haya una causa noble por la que luchar, siempre habrá ladrones que la apoyarán. |