Hallo,
Also jetzt habe ich ein Problemm...
irgendwo muss ein Denkfehler sein
if ferwende die funktion
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;
Und so ruf ich die funktion auf
Delphi-Quellcode:
i:=0;
while fileexists('C:\Programme\ferby\datenbank\kopie\data' + inttostr(i)) do inc(i);
inc(i);
copydir('C:\Programme\ferby\datenbank\data','C:\Programme\ferby\datenbank\kopie\data' + inttostr(i))
das erste mal macht er die kopie wenn ich dann aber noch eine koopie machen will dann mancht er keinen neuen ordner data2 usw....