Copiar tablas de una unidad a otra
Tengo mis tablas dentro de la carpeta TABLAS que se encuentran en la unidad U:, y las quiero copiar en la Unidad C:, y si en caso las tablas ya existen en la unidad C:, que simplemente lo reemplace sin necesidad que me haga la pregunta, estoy usando Visual Fox Pro 8.0, si pudieran darme un ejemplo se lo agradecería mucho.
Gracias por su ayuda.
Gracias por su ayuda.
1 respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
Intenta:
LOCAL m.aDirectorio, m.nDirectorio, m.nContador
SET SAFETY OFF
DIMENSION m.aDirectorio(1)
m.nDirectorio = ADIR( m.aDirectorio, "U:\*.DBF", "A", 1 )
FOR m.nContador = 1 TO m.nDirectorio
IF LEFT( m.aDirectorio[m.nContador, 1], 1 ) <> "."
m.cOrigen = "U:\" + m.aDirectorio[m.nContador, 1]
m.cDestino = "C:\" + m.aDirectorio[m.nContador, 1]
COPY FILE (cOrigen) TO (cDestino)
ENDIF
NEXT
SET SAFETY ON
... bueeeno, eso digo yo.
Víctor.
LOCAL m.aDirectorio, m.nDirectorio, m.nContador
SET SAFETY OFF
DIMENSION m.aDirectorio(1)
m.nDirectorio = ADIR( m.aDirectorio, "U:\*.DBF", "A", 1 )
FOR m.nContador = 1 TO m.nDirectorio
IF LEFT( m.aDirectorio[m.nContador, 1], 1 ) <> "."
m.cOrigen = "U:\" + m.aDirectorio[m.nContador, 1]
m.cDestino = "C:\" + m.aDirectorio[m.nContador, 1]
COPY FILE (cOrigen) TO (cDestino)
ENDIF
NEXT
SET SAFETY ON
... bueeeno, eso digo yo.
Víctor.
