Entwickler-Ecke

Dateizugriff - Mehrere Dateien speichern / laden? Wie geht das?


Cosmic - Mi 08.01.03 18:23
Titel: Mehrere Dateien speichern / laden? Wie geht das?
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


Keldorn - Mi 08.01.03 18:38

Hallo
Zitat:

x :=(saveDialog1.FileName);

also wenn ich mich recht erinnere, war der open/Savedialog nur für dateien da. ein Verzecihnis kannst du damirt nicht auswählen. schau dir mal selectdirectory an.

copyDir kennt die Delphi-Version die ich grad hioer ab noch nicht. ansonsten such mal im Forum nach SHFileoperation da wirst du zu Kopiereren mit ganzen Verzeichnissen fündig

mfg Frank


Cosmic - Do 09.01.03 08:16
Titel: Super
Hi,
also ich habe gerade erst Deine Nachricht gelesen, aber wenn ich das fände wäre das echt super :P
Danke
ciao Cosmic


Cosmic - Do 09.01.03 09:01
Titel: WOW
Hi,
also ich habe das jetzt ausprobiert und es funktioniert erste Sahne !
Leider sieht das DIalogfenster für dsa Kopieren von Ordnern etwas antiquiert aus ;-) Aber es funktioniert!
Und ich bin Wochenlang alles mögliche am ausprobieren ?!
Danke nochmals

Ciao Cosmic

-----------------------------------------
Letz Fet´s heute beginnt Dein Leben