comando copy MS DOS

[RaulChemical]

Buenas!!!

No se si habre puesto bien esta pregunta en este foro, pero bueno, ahi va:

Necesito ejecutar una orden copy de MS DOS desde mi aplicacion (requisitos del jefe :( ), y lo hago con un ShellExecute( );, pero no me sale, no se que parametros le debo pasar al ShellExecute para que me ejecute la orden de copia que quiero hacer.

La razon de ejecutar el copy de msdos es xq dice el jefe que despues de ejecutar un porceso que genera 3 ficheros de texto, tengo que concatenar los 3 en uno, y él dice que use un
"copy fich1.txt+fich2.txt+fich3.txt fichResul.txt"
para concatenarlos.

Si se os ocurre alguna otra forma sencilla de concatenar los tres ficheros, no dudeis en comunicarmelo.

Muchas gracias a todos de antemano.

Raul.

[Nuria]

Hola RaulChemical!

Mira este hilo :

http://www.clubdelphi.com/foros/showthread.php?s=&threadid=2832


Espero que te sirva.


Saludos! :p

[eduarcol]

mira yo no se si te sirva pero yo lo que haria es declarar 3 stringlist algo asi

procedure concatenararchivos;
var
Arch1, Arch2, Arch3: TStringList;
nidx: Integer;
begin
//Abre los archivos
Arch1 := TStringList.Create;
Arch2 := TStringList.Create;
Arch3 := TStringList.Create;
//Carga los valores
Arch1.LoadFromFile('c:\arch1.txt');
Arch2.LoadFromFile('c:\arch2.txt');
Arch3.LoadFromFile('c:\arch3.txt');
//Concatena
for nidx := 0 to arch2.count - 1 do
Arch1.Add(Arch2.Strings[nidx]);
for nidx := 0 to arch3.count - 1 do
Arch1.Add(Arch3.Strings[nidx]);
//Guarda el archivo concatenado
Arch1.SavetoFile('c:\Resulta.txt');
end;




pruebalo que si funciona y suerte

[RaulChemical]

Molan mucho las dos opciones que me habeis dado hasta ahora, pero de momento me quedo con la de nuria. La tuya, eduarcol, es muy buena y me has dado una idea para otra movida rara que se ha inventado mi jefe :mad:

Bueno, a seguir currando.

[eduarcol]

oye pero tu jefe es super imaginativo o le gusta verte sufrir :D