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

Réponse acceptée !
C'est tout ce qu'il y a de plus simple ... pas la peine d'utiliser une unité externe pour si peut ... il y a tout dans Delphi
essaye ça :
  Label1.Caption := ExtractFilePath(ExtractFileDir('LocalHost:d:\RepertoireUN\RepertoireDEUX\RepertoireTROIS\MonFichier.txt'));

retourne : LocalHost:d:\RepertoireUN\RepertoireDEUX\
 
@+
Cirec

---

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)

Réponse acceptée !
Merci !!!!!!!!!!!!!!!!!!! Génial !!!!!!! Ca fonctionne !!!!
Bonne soirée à tous et bon week-end à ceux qui font le pont !!!

ZZZEvelyne