Cita:
Empezado por escafandra
Ciertamente no está claro lo que quiere.
Usa mi finción XCopy diseñada para copiar de golpe una lista de archivos, pero la modifica para ir de archivo a archivo... perdió el sentido de la función.
Por otro lado, si quiwre controlar el progreso de la copia tiene varias opciones. Un ejemplo lo puede encontrar siguiendo este hilo.
Saludos. |
si he visto como realizar progreso de copia pero tambien hago aparte de eso una modificacion y creacion de un archivo por eso queria saber cmo se puede realizar con ambos
Código Delphi
[-]procedure TForm1.EditArchivo(rutArchivo: string);
var
v:integer;
begin
try
memo1.Lines.LoadFromFile(ruta1.text+'\sources\$oem$\$$\Setup\Scripts\SetupComplete.cmd');
memo1.Lines.Delete(memo1.Lines.Count -1);
memo1.Lines.Add('Echo..........Install program');
for v := 0 to ListView2.Items.Count - 1 do
Memo1.Lines.Add(ListView2.Items[v].Caption+ListView2.Items[v].SubItems[0]+' '+ListView2.Items[v].SubItems[1]);
memo1.Lines.Add('Echo..........Completado');
memo1.Lines.Add('Exit');
finally
memo1.lines.SaveToFile(rutArchivo);
end
end;
adjunto unit
saludos y gracias!