Discussion :

[Jayceblaster]

Bonjour....

Je pense que m'a question a deja fait l'objet de post et que des articles doivent en parler mais y a tellement de chose sur la gestion des fichiers et des répertoires que je n'ai pas trouvé mon bonheur (je suis noyé ) .

Alors voila...

Je souhaite connaitre le répertoire parent d'un répertoire donné...
A quelle propriété dois je faire appel?

Merci d'avance...

[Philippe Gormand]

Bonjour.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Var
   Repertoir, RepertoireActuel : String;
 
begin
 
Repertoir := ExtractFilePath(RepertoirActuel);

A+

[TicTacToe]

J'ajouterais ceci pour être sur du coup
Car si RepertoirActuel à le slash de fin, je pense que ca marche pas (mais à vérifier )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Repertoir := ExtractFilePath(ExcludeTrailingPathDelimiter( RepertoirActuel ) );

[Jayceblaster]

Le slach de fin?????

[Jayceblaster]

Ah tu veux parler du slach de fin de chaine c'est ca?

[TicTacToe]

c:\windows\system

et

c:\windows\system\


Tout 2 représente un dossier
Le 2eme à l'(anti) slash de fin.

Mais je ne suis pas sur que ExtractFileName du 1er et du 2eme renvoie la même chose !
Pour être sur dans le code précédent, j'enlève systématiquement le slash de fin, afin que la fonction ExtractFilePath(...) considère 'System' comme le nom d'un fichier et renvoie le chemin: 'c:\windows\'

[Jayceblaster]

je ne suis pas sur que ExtractFilePath convienne dans mon cas....

Car moi je cherche a récupérer le repertoire parent d'un répertoire qui n'est pas forcément le répertoire courant de mon appli....

[TicTacToe]

Avant de dire cela...
As tu au moins essayé le code fourni et testé ?????

et la variable 'RepertoireActuel' tu y mets le répertoire source que tu souhaites. J'espere que tu faisais pas allusion a ceci dans ton précédent post quand même .

[Jayceblaster]

Je suis novice mais quand meme....( j'ai bien compris que RépertoireActuel c'est le nom du répertoire cherché)
Et si je dis que ca ne correspond pas c'est que j'ai essayé...
si je met:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
<div style="text-align: left;">Var
   Repertoir: String;
 
begin
 
Repertoir := ExtractFilePath('toto');</div>

en suposant que j'ai un chemin de type c:\titi\tata\toto\.....

la variable Repertoir ne prend pas la valeur 'tata' ...
et c'est ca que je cherche a faire moi....
Pour l'instant la variable Repertoire reste vide ''.

[TicTacToe]

ah.. ca change tout

tu fournis un dossier 'relatif' dans ce cas.

Alors il faut faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Repertoir := ExtractFilePath(ExcludeTrailingPathDelimiter( ExpandFileName( RepertoirActuel )  ) );

ExpandFileName transforme un chemin/fichier relatif, en chemin complet.
Encore faut-il que tu sois dans le bon dossier....
Là pas de miracle, si il trouve pas, la fonction va pas scanner tes disk pour trouver le dossier 'toto' !

[Philippe Gormand]

Evidemment, évidement.

Manque de compréhension.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
   Repertoir: String;
 
begin
 
Repertoir := ExtractFilePath('c:\titi\tata\toto\');

Renvera 'c:\titi\tata'

Si tu ne connais pas le chemin de toto et que tu veux retrouver son chemin complet, c'est different.

Utilise ExpendFileName ou bien FindFirts. Il y a des exemples dans l'aide de Delphi.

Bon courage.

[TicTacToe]

Evidemment, évidement.

Manque de compréhension.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
   Repertoir: String;
 
begin
 
Repertoir := ExtractFilePath('c:\titi\tata\toto\');

Renvera 'c:\titi\tata'

Si tu ne connais pas le chemin de toto et que tu veux retrouver son chemin complet, c'est different.
(en dehors du problème du chemin relatif)
Utilise ExpendFileName ou bien FindFirts. Il y a des exemples dans l'aide de Delphi.

Bon courage.

FAUX !

ExtractFilePath('c:\titi\tata\toto\'); renvoie c:\titi\tata\toto\
ExtractFilePath('c:\titi\tata\toto'); renvoie c:\titi\tata\

--> c'est pour cela qu'il faut faire un ExcludeTrailingPathDelimiter sur le chemin à traiter.

[Graffito]

Bonjour,

Pour récupérer un nom complet normalisé (sans "..") :
ExpandFileName et ExpandUNCFilename

Ensuite, il ne reste plus qu'à faire un ExtractFilePath (après suppression éventuelle du '\' final)

[TicTacToe]

Bonjour,

Pour récupérer un nom complet normalisé (sans "..") :
ExpandFileName et ExpandUNCFilename

Ensuite, il ne reste plus qu'à faire un ExtractFilePath (après suppression éventuelle du '\' final)

heu -1 Graffito pour ce coup (après le +1 pour le poste sur le zip, il fallait bien rétablir l'équilibre

déjà été dit tout ca

[Graffito]

Ah oui,

Tic Tac avait déjà mentionné les fonctions Expand...