Extraire le dernier dossier d'un cheminRésolu

Question

Salut &#224; tous...

je souhaiterai cr&#233;er une fonction simple permettant d'extraire le dernier dossier d'un chemin (juste avant le nom du fichier).
par exemple : 
en entrant le chemin :
D:\Dossier\SousDossier\SousSSDossier\LeDernierDossier\MonFichier.fic
la fonction renvoi :
LeDernierDossier\
j'ai bricoler un truc avec ExtractFilePath, puis avec une recherche du dernier slash etc etc....mais c'est vraiment du bricolage et &#231;a ne me satisfaisait pas...
Y'a t il une solution simple ?
je n'ai rien trouv&#233; dans "utilitaires de nom de fichiers" dans l'aide delphi...

merci de votre aide.

WhiteHippo · Accepted Answer

Je ferais comme suit :

function DernierDossier ( const NomFichier : string ) : string ;
var
  Chemin : String ;
begin
  Chemin := ExtractFileDir( NomFichier );
  Result := ExtractRelativePath(Chemin,Chemin);
end ;

Cordialement.

emmanuelgo · Answer

merci pour ta r&#233;ponse rapide.... je trouve &#231;a etonnant mais : &#231;a marche !
j'avais tent&#233; un truc avec ExtractRelativePath, mais sans succ&#233;s... cette fa&#231;on d'utiliser est assez etonnante puisque voila ce que dit l'aide delphi

function ExtractRelativePath(const BaseName, DestName: string): string;


 


Description


 


Appelez ExtractRelativePath pour convertir un chemin complet en chemin relatif.  Le param&#232;tre DestName sp&#233;cifie le chemin et le nom de fichier &#224; convertir.  BaseName est le nom complet du r&#233;pertoire de base auquel le chemin renvoy&#233; fait r&#233;f&#233;rence. BaseName peut ou non contenir un nom de fichier mais doit contenir le d&#233;limiteur de chemin d'acc&#232;s final.

je ne comprends pas vraiment pourquoi ta fonction renvoi le dernier dossier....
mais &#231;a marche !!!
merci beaucoup ! &#231;a m'aide &#233;norm&#233;ment !

retaks666 · Answer

Tu peux le faire que en bricolant, tiens je t'ai fait une fonction
bricolage, c'est un peu lourd car j'utilise aucune variables mais &#231;a
marche ;)



function getlpath(rpath:string):string;

begin

if (rpath[length(rpath)] <> '\') then rpath := rpath + '\';

result:=copy(rpath,

(rpos('\',copy(rpath,1,length(rpath)-1),-1)+1),

(length(application.exename)-(rpos('\',copy(rpath,1,length(rpath)-1),-1))));

result := copy(result,1,length(result)-1);//pour enlever le slash a la fin

end;

emmanuelgo · Answer

merci &#224; toi retaks666....
c'est un peu lourd effectivement !!! mais en gros &#231;a ressemble &#224; ce que j'avais bricoler moi m&#234;me....  regarde la solution de WhiteHippo : beaucoup plus simple n'est ce pas ??
merci quand meme !!

retaks666 · Answer

oui c'est sur, mais il fallait conna&#238;tre la fonction ;)

Extraire le dernier dossier d'un chemin

5 réponses

Votre réponse

Discussions similaires