Fehler + Progressbar beim Kopieren

[MiniKeks]

Ihc kopiere mit

Delphi-Quellcode:

function 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;

Ein Laufwerk zu einem anderen.

Also mit

Zitat:

Copydir (combobox1.text, edit1.text);

Das funzt ned. Es kommt eine Meldung:
"Quelldatei kann nicht gelesen werden"
Wie behebe ich dieses Problem?
Und wie kann ich den Fortschritt in einer Progressbar anzeigen?

Gruss MiniKeks

[edit=Luckie]Wer packt denn Code in Zitat-Tags? Mfg, Luckie[/edit]

[Luckie]

In der Code-lib haben wir dazu einen eine Beitrag von sakura: shfileoperation Immer erst suchen, dann fragen.