Remonter une arborescence de répertoireRésolu

Question

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

Cirec · Accepted Answer

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

<hr siz="" />

JulioDelphi · Answer

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

JulioDelphi · Answer

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

Cirec · Answer

C'est magique ... hein 

en même temps on ne peut pas tout connaitre 

 
@+
Cirec

<hr siz="" />

JulioDelphi · Answer

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)

cs_ZZZEvelyne · Answer

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

Remonter une arborescence de répertoire

6 réponses

Votre réponse

Discussions similaires