Hi Ihr da draussen,
mit diesem Code kopiere ich Gesamte Verzeichnisse...
Delphi-Quellcode:
class function TMyDaten.CopyDirectory(AFromFolder, AToFolder: string): boolean;
var
fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
fos.wFunc := FO_COPY;
fos.fFlags := FOF_SIMPLEPROGRESS OR FOF_NOCONFIRMATION;
fos.pFrom := PChar(AFromFolder + #0);
fos.pTo := PChar(AToFolder);
Result := (0 = ShFileOperation(fos));
end;
Das klappt ja soweit auch ganz gut.
Aber mit diesem Code kann ich nicht werte abfangen(anzahl der Ordner) um mir den fortschritt in einer Progressbar anzeigen zu lassen.
Gibt es da irgend wie nen kniff?
Oder muss ich den Code gänzlich über bord schmeißen...?