Hola amigos tengo la función que esta mas abajo que me copia un archivo de un directorio a otro el problema es cuando quiero copiar muchos archivos por ejemplo
CopiaTodo('L:\act\*.xls ', 'L:\OPE\*.xls');
Suponiendo que ahí dentro hay muchos archivos si pongo el comodin hace el proceso pero no me los copia como podría solucionarlo gracias como siempre
Código Delphi
[-]
function CopiaTodo(Origen,Destino : String) :
LongInt;
var
F : TShFileOpStruct;
sOrigen, sDestino : String;
begin
Result := 0;
sOrigen := Origen + #0;
sDestino := Destino + #0;
with F do
begin
Wnd := Application.Handle;
wFunc := FO_COPY;
pFrom := @sOrigen[1];
pTo := @sDestino[1];
fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SIMPLEPROGRESS;
end;
Result := ShFileOperation(F);
end;