Clipper/FiveWin - Copiar Ficheros

   
Vista:

Copiar Ficheros

Publicado por Gabriel Martin (41 intervenciones) el 02/01/2008 20:01:55
Buenas a todos y Feliz año nuevo:

una sencilla pregunta, pero a la que no encuentro la solucion:
Para crear un directorio se utiliza lMkDir, pero ¿Como copio todos los archivos de un directorio en otro?

Seguro que está chupado, pero en RUN XCOPY no me funciona y la funcion LZCopyFile, no me la reconoce.

Ya me direis y Gracias

Gabriel Martin

fw 2.7
Harbour Compiler Alpha build 40.0 (Flex)
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
MAKE Version 5.2 Copyright (c) 1987, 2000 Borland
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Copiar Ficheros

Publicado por Gabriel Pascual (914 intervenciones) el 02/01/2008 20:44:14
Fcopy(<archivo origen>, <archivo destino>)

Ejemplo:

FCopy("myarchivo.ext", "C:windowssystemotronombre.ext")

Saludos y Feliz año
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Copiar Ficheros

Publicado por Gabriel Martin (41 intervenciones) el 03/01/2008 09:30:40
Buenas Tocayo, tu tan atento como siempre.

Decirte que no me reconoce la funcion FCopy, y adelantar que no se trata de copiar un fichero sino mas bien unos 150, con lo que no se si funcionaria con comodines tipo *.*. Es copiar el contenido del directorio cFlOrigen al directorio oPhatFileMult

A ver si me ayudais.

Un saludo Gabriel
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Copiar Ficheros

Publicado por Antoni Masana (168 intervenciones) el 03/01/2008 11:22:41
Estas pocas lineas copian todos los ficheros del directorio origen: C:DIR_ORIG al directorio destino: C:DIR_DEST

a_Files := DIRECTORY("C:DIR_ORIG*.*"),;

FOR a=1 to LEN(a_Files)
c_Orig := "C:DIR_ORIG" + a_Files[a,1]
c_Dest := "C:DIR_DEST" + a_Files[a,1]

COPY FILE (c_Orig) TO (c_Dest)
NEXT

Otra opcion es:

c_Orig := "C:DIR_ORIG*.*"
c_Dest := "C:DIR_DEST*.*"

RUN "XCOPY "+ c_Orig +" "+ c_Dest + " /Y /S >nul"

Cambialo como necesites:

NOTA: Pruebalos los dos. En el primer ejemplo quien realiza la copia es el propio clipper (Programa) y en el segundo el MS-DOS y la diferencia de tiempo entre uno y otro puede ser importante para un gran volumen de ficheros.
No lo he probado copiando pero si borrando y la diferencia fue de 2 a 3 horas.

Un saludo desde Barcelona, Espanya.

Y Feliz Año Nuevo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Copiar Ficheros

Publicado por Gabriel Martin (41 intervenciones) el 03/01/2008 17:24:40
Muchas Gracias Antoni.

He probado el primer ejemplo y como el resultado es el que queria, es una operación que no se ha de realizar con habitualidad, el tiempo de espera casi que no se nota pues los ficheros a copiar son pequeños; la segunda la desestimo para evitar problemas con las pantallas negras que salen al utilizar el MS-DOS puro y duro

Feliz año Gabriel Mataró, Spain

Ets un geni Company (Eres un genio compañero)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar