Ordner Kopieren

[Binärbaum]

Zitat von ferby:

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 kopie machen will dann mancht er keinen neuen ordner data2 usw....

Das wir er auch nie, da FileExists IMHO nur die Existenz von Dateien, nicht die von Ordnern überprüfen kann. Also wird FileExists im obigen Beispiel immer False zurückgeben, auch wenn der Ordner existiert, da es ja keine Datei ist. Demzufolge wird also immer nach "C:\Programme\ferby\datenbank\kopie\data1" kopiert. Zu den Ordnern data2, data3 usw. kommt man nie.

MfG
Binärbaum

//Edit: Tippfehler