|
Registriert seit: 23. Aug 2005
Ort: Homburg
274 Beiträge
Delphi 7 Professional
|
Re: Verzeichnis von A nach B kopieren.
19. Okt 2005, 13:30
Code:
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 + #0)
end;
Result := (0 = ShFileOperation(fos));
end;
binde das in deine unit ein
Johannes
Der Pfad der Gerechten ist zu beiden Seiten gesäumt mit Freveleien der Selbstsüchtigen und der Tyrannei böser Männer. Gesegnet sei der, der im Namen der Barmherzigkeit und des guten Willens die Schwachen durch das Tal der Dunkelheit geleitet.
|