Remonter une arborescence de répertoire

Bonjour à tous !

Mon problème est le suivant :
Je récupère la localisation d'un fichier et j'en extrais le chemin grace à la fonction ExtractFilePath.
Le résultat est le suivant :    
LocalHost:d:\RepertoireUN\RepertoireDEUX\RepertoireTROIS\

Je souhaite savoir comment remonter d'un niveau dans l'arborescence pour n'avoir plus que :
LocalHost:d:\RepertoireUN\RepertoireDEUX\

Si quelqu'un a une technique pour arriver à ce résultat.... Merci par avance.

ZZZEvelyne

J'utilise l'unité String Manager (StrMan.pas : http://diabloporc.free.fr/delphi/ ) et tu peux faire ceci :

Dossier := sm.BeforeRev('\','LocalHost:d:\RepertoireUN\RepertoireDEUX\RepertoireTROIS\');

sm.BeforeRev() va te retourner tout ce qui se trouve avant (before) le '\' en commençant par la fin (Rev(erse)) pour éviter que ça nous retourne 'LocalHost:d:' dès le premier \ trouvé.

Un fichier d'aide est dans le dossier strman aussi.

Bon coding

Je viens de découvrir ExtractFileDir :]
Merci Cirec :p

C'est magique ... hein

en même temps on ne peut pas tout connaitre

 
@+
Cirec

---

Surtout en autodidacte x) Ya un moyen de connaitre tout ça ou de chercher au bon endroit sans devoir inventer des magouilles comme moi ? x)