Hallo,
also was bis funktioniert ist folgendes:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TForm1.ProjektSpeichern1Click(Sender: TObject);
var x :string;
begin
if saveDialog1.Execute then
begin
x :=(saveDialog1.FileName);
end;
if CopyDir('C:\Programme\Borland\Delphi7\Projects\Projects2\4
\planfall1', x) = True then
ShowMessage('Directory copied.');
end; |
das kopiert mir ein Verzeichnis an eine beliebige Stelle. Soweit OK.
Aber die Umkehrung funktioniert leider nicht! ALso das gerade kopierte Verzeichnis wieder zurück kopieren, unter Verwendung des Savedialogs.
Zur Erklärung: In dem Order "4" (der kopiert) wird sind 2 Ordner mit vier Dateien.
Ich habe mir schon überlegt, das ich vielleicht jede Datei einzeln speichern muß, nur dann habe ich doch auch das Problem, das ich nicht alle Dateinen auf einmal laden kann, oder?
Danke Cosmic
-----------------------------------------
Letz Fet´s heute beginnt Dein Leben
Aber es funktioniert!