Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi aktueller Ordner OHNE übergeordnete herausfinden (https://www.delphipraxis.net/6610-aktueller-ordner-ohne-uebergeordnete-herausfinden.html)

JKuehl 16. Jul 2003 19:11


aktueller Ordner OHNE übergeordnete herausfinden
 
Suche eine Funktion oder einen Trick der mir den aktuellen Ordner liefert, in dem ich mit FindNext nach Dateien suche.

und zwar nicht dem kompletten Ordner C:\Beispiel\Ordner1
sondern nur Ordner1

ich könnte den String parsen und dann alles nach dem letzten \ behalten aber es muss doch auch einfacher gehen!

Hat jemand eine idee?

Hintergrund: ich durchsuche alle Subfolder nach MP3 Dateien (realisiert) und in jedes dir soll eine M3U Datei erstellt werden, welche genau heißt wie der Folder in dem sie sich befindet, dazu brauche ich nur noch den Namen des Ordners.

Besten Dank im vorraus

sakura 16. Jul 2003 19:15

Re: aktueller Ordner OHNE übergeordnete herausfinden
 
Wenn Du den Ordnernamen ohne abschließenden Backslash hast (also C:\Beispiel\Ordner1 und nicht C:\Beispiel\Ordner1\) dann nutze einfach die Funktion ExtractFileName. Funktioniert, da die nicht überprüft, ob es wirklich eine Datei ist ;-)

...:cat:...

JKuehl 16. Jul 2003 19:42

Re: aktueller Ordner OHNE übergeordnete herausfinden
 
vielen Dank an den MEISTER!

Jetzt nur noch den Fehler finden, warum in der Rekursiven Dateisuchroutine manchmal der gleiche Ordner mehrmals auftaucht und mein Proggy ist fertig ;)

es würde zwar nichts falsch machen, aber unnötigen Aufwand verursachen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:32 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