ESTA ES UN RUTINA PARA ALMACENAR TUS TABLAS EN LA UNIDAD A:
SET SAFETY OFF
m = MESSAGEBOX( ;
"[INICIANDO-Procedimiento] - Prepare el [DISCO] Receptor", ;
0032, "Copiando Disco [A:]")
m = MESSAGEBOX("Inserte el [DESTINO]", 0032, ;
"Copiando Disco [A:]")
cdir = "A:"
IF FILE(cdir+"NUL")
IF FILE(cdir+"NUL")
COPY FILE c:CARPETA ablas abla1.* TO a:
COPY FILE c:CARPETA ablas abla2.* TO a:
m = MESSAGEBOX("[Copia Completada]", 0032, ;
"Copiando Disco [A:]")
ELSE
n = MESSAGEBOX("Disco no se Encontró [PROCESO CANCELADO]", ;
0016, "Error")
ENDIF
ELSE
n = MESSAGEBOX("Disco no se Encontró [PROCESO CANCELADO]", 0016, ;
"Error")
ENDIF
*--
SALUDES AMIGO