Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi laufwerke durchsuchen ? (https://www.delphipraxis.net/110297-laufwerke-durchsuchen.html)

tmrxxoja 16. Mär 2008 11:46


laufwerke durchsuchen ?
 
moin moin erstmal

also ich habe ein Problem
ich habe in lauf der jahre viele 10000sende Bilder gemacht
die alle irgendwo auf irgendwelchen Datenträgern Schlummern.

Nun gut dachte ich mir
da schreibst du nun einfach mal ein Programm was dir die Pfade der Bilder ausgibt.
und sie dann alle in einen Ordner schiebt

aber wir fangen mal klein an
PFADE

wie mache ich es ?

ich habe ein test verzeichniss um jeden fall abzudecken

C:/test/

da gibt es weitere verzeichnisse drin

C:/test/2006
C:/test/2007
C:/test/2008

nun da können bilder drin sein oder auch nicht

wenn ich den baum mal vollständig darstellen darf


C:/test/bild1002.jpg
C:/test/bild1004.jpg
C:/test/bild1006.jpg
C:/test/bild1003.jpg
C:/test/bild1008.jpg
C:/test/2006/bild10108.jpg
C:/test/2006/bild101108.jpg
C:/test/2006/bild101208.jpg
C:/test/2006/bild101408.jpg
C:/test/2007/bild101508.jpg
C:/test/2008/bild101608.jpg
C:/test/2008/1/bild101608.jpg
C:/test/2008/1/bild101608.jpg
C:/test/2008/2/bild101108.jpg
C:/test/2008/2/bild101208.jpg
C:/test/2008/1/1/bild101608.jpg


und so weiter

ist einfach so entstanden und nun habe ich das große problem
zudem reitz es mich auch mal wieder in Delphi zu schreiben

nun wie gehe ich da an besten ran ?

mkinzler 16. Mär 2008 11:48

Re: laufwerke durchsuchen ?
 
Such mal nach FindFirst()/FindNext()

tmrxxoja 16. Mär 2008 11:55

Re: laufwerke durchsuchen ?
 
hmm danke

aber was mache ich mit dem ordner ?
da muss ich ja sowas wie eine rekusion (oder wie man das schreibt) einbaunen
oder liege ich falsch ?

mkinzler 16. Mär 2008 11:57

Re: laufwerke durchsuchen ?
 
Ordner werden wie Dateien gefunden haben aber ein besonderen Status

dominikkv 16. Mär 2008 12:00

Re: laufwerke durchsuchen ?
 
schau mal hier

tmrxxoja 16. Mär 2008 12:47

Re: laufwerke durchsuchen ?
 
fein ich glaube ich habe es

kann das noch nicht testen weil ich mit tstrings nicht so um kamm

taaktaak 16. Mär 2008 13:39

Re: laufwerke durchsuchen ?
 
Moin, Moin,
du schreibst
Zitat:

..und sie dann alle in einen Ordner schiebt..
Ich bezweifle, dass dies eine gute Idee ist. In einem Verzeichnis mehrere 10.000 Bilder ablegen? Worin siehst du den Vorteil? Hier wäre doch eher eine vernüftige Datenbank angebracht, die dir eine vernünftige Übersicht gibt...

tmrxxoja 16. Mär 2008 14:18

Re: laufwerke durchsuchen ?
 
jap bin ich ja bei

sollen unterordner geben

wie z.b.

C:\bilder\2001\01\01
C:\bilder\2001\01\09
C:\bilder\2001\01\11
C:\bilder\2001\01\14
C:\bilder\2001\01\30
C:\bilder\2001\02\01
C:\bilder\2001\02\02
C:\bilder\2001\02\04

Also /Jahr/Monat/Tag
und dann zur unterstützung halt eine methode um kemmentare der dem bildern hinzuzufügen

tjoar so ist das mal geplant


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:18 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz