Autor Beitrag
galagher
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 2556
Erhaltene Danke: 45

Windows 10 Home
Delphi 10.1 Starter, Lazarus 2.0.6
BeitragVerfasst: Di 13.12.05 20:38 
Hallo!

Ich stehe wieder mal vor einem Problem(chen), das ich allein wohl nicht lösen kann. Ich habe zwei Ordner, deren darin enthaltene Dateinamen ich erstmal in je eine ListBox schreibe:
Ordner1-Dateien in ListBox1, Ordner2-Dateien in ListBox2. Das Ganze sieht dann so aus:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
 ListBox1:
  D:\Test\Ordner1\1.txt
  D:\Test\Ordner1\2.txt
  D:\Test\Ordner1\3.txt

ListBox2:
  D:\Test\Ordner2\1.txt
  D:\Test\Ordner2\2.txt
  D:\Test\Ordner2\3.txt


Nun will ich feststellen, welcher Ordner die aktuelleren Dateien enthält, wobei:
1. nicht immer nur in einem Ordner alle Dateien aktueller als die im anderen sind
2. Die Anzahl der Dateien in den Ordnern unterschiedlich sein kann
3. Die Namen der Dateien nicht immer identisch sein müssen. Diesfalls sollen die
Dateien, die im anderen Ordner fehlen, dorthin kopiert werden.

Letzendlich sollen in beiden Ordnern die gleichen, aktuellsten Dateien sein; die Ordner sollen also praktisch angeglichen werden. Fix ist: Es sind immer nur zwei Ordner, niemals mehr.

Ich habe keine Ahnung, wie ich diese komplexen Anforderungen erfüllen soll. Bitte um Hilfe!

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!
Spaceguide
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 552


(D3/D7/D8) Prof.
BeitragVerfasst: Di 13.12.05 21:33 
Du kannst

-Mit FindFirst/FindNext einen Ordner durchsuchen
-Für jede gefundene Datei im anderen Ordner mit FileExists und FindAge herausfinden, ob die Datei dort nicht existiert oder veraltet ist
-Ist das der Fall, kopiere die Datei mit CopyFile
-Mach das ganze mit den Ordnern in ungekehrten Rollen
galagher Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 2556
Erhaltene Danke: 45

Windows 10 Home
Delphi 10.1 Starter, Lazarus 2.0.6
BeitragVerfasst: Di 13.12.05 22:07 
Danke, werde mich morgen mal hinsetzen!

user profile iconSpaceguide hat folgendes geschrieben:
-Mach das ganze mit den Ordnern in ungekehrten Rollen

Was meinst du mit "umgekehrten Rollen"? :?

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!
Spaceguide
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 552


(D3/D7/D8) Prof.
BeitragVerfasst: Di 13.12.05 22:18 
Na du hast ja zwei Ordner. Einmal ist Order1 der, welcher durchsucht wird und einmal ist es Ordner2.
galagher Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 2556
Erhaltene Danke: 45

Windows 10 Home
Delphi 10.1 Starter, Lazarus 2.0.6
BeitragVerfasst: Mi 14.12.05 19:34 
Danke, sieht schon mal recht gut aus! Die Dateien werden kopiert bzw. aktualisiert! Danke erstmal für die Hilfe! :)

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!