que tal estoy tratando de encontrar la forma de poder copiar una carpeta, pero si esta ya existe quiero que me sobreescriba el contenido, dentro de los foros encontre una liga con el siguiente codigo:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
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
end;
Result := ShFileOperation(F);
end;
begin
CopiaTodo('c:\Delphi3\*.*','c:\kk');
end;
este procedimiento funciona bien, solo que si el directorio ya existe me creo otro con el mismo nombre y los va anidando.
como puedo hacer para que me sobreescriba el directorio.