[DELPHI] Copiare intera directory con sovrascrittura

[crippo]

ciao
problema: devo copiare una directory con tutto il suo contenuto da client a server e viceversa,
ho trovato questa funzione:

function TForm1.CopyDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_COPY;
    fFlags := FOF_FILESONLY;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
  Result := (0 = ShFileOperation(fos));
end;

perfetto... solo che se la directory esiste già non me la sovrascrive, ma va a creare un'latra directory all'interno della stessa...
Esempio: se copio da c:\prova a \server\prova mi succede che copia il tutto in \server\prova\prova

effettivamente potrei prima rimuovere la directory e poi copiarla, ma volevo sapere se era possibile evitare questo (per fare il figo ).

qualcuno è in grado di aiutarmi? alka? oppure dove posso trovare info riguardanti sto tipo TSHFileOpStruct?

grazie

[alka]

Leggi la descrizione MSDN di TShFileOpStruct, potrebbe contenere informazioni su alcuni flag che possono esserti d'aiuto.

In generale, proverei ad usare la stessa istruzione ma specificando, nel caso della directory di destinazione, solamente la cartella superiore che conterrà la directory di origine, e non il percorso finale.

Non posso verificare quanto ho scritto, ma tentare non nuoce.

Ciao!

[crippo]

In generale, proverei ad usare la stessa istruzione ma specificando, nel caso della directory di destinazione, solamente la cartella superiore che conterrà la directory di origine, e non il percorso finale.

funziona!!!
grazie mille