Déterminer un chemin relatif

Version imprimable

26/02/2022, 16h06
sematimo

Déterminer un chemin relatif

Bonjour.

Petite question. Une application installée sur le disque C fait appel à un dossier sur le lecteur D. J'aimerais avoir le chemin relatif du dossier sur D par rapport à l'application sur le lecteur C.

Peut-être avec CreateRelativeSearchPath ?

bon je me suis débrouillé autrement.
j'ai bricolé une petite fonction qui marche très bien dans mon cas:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 function Tform1.relativepath(source,destin:string):string;
     var
  x:integer;
  s,s2:string;
begin
  s:=source+'\';
s2:='../';
 for x:=0 to length(s)-1 do
 begin
  if s[x]='\' then s2:=s2+'../';
 end;
  result:=s2+stringreplace(destin,'\','/', [rfReplaceAll, rfIgnoreCase]);
end;

28/02/2022, 06h58
Roland Chastain

Bonjour !

Autrement il y a la fonction ExtractRelativePath.
28/02/2022, 12h21
sematimo

Bonjour
j'avais essayé ExtractRelativePath mais il ne semble pas fonctionner.
Par exemple:

Code:

edit1.text:=ExtractRelativePath('C:\Program Files (x86)/','D:\Documents/');

me renvoi toujours 'D:\Documents' alors que je devrai avoir quelque chose comme ça: ../../D:/Documents/
28/02/2022, 14h54
tourlourou

Bonjour,
Il semble qu'il y ait une limitation à la fonction, lue dans son aide :

Citation:

If DestName is on another drive (Not on Unix-like platforms) then the whole Destname is returned.

Ce que tu obtiens semble donc ce que tu devais obtenir, à défaut d'être ce que tu souhaitais avoir.
28/02/2022, 15h51
sematimo

Donc ne peut fonctionner que si tout se trouve sur le même disque
01/03/2022, 13h40
DomDA91

Citation:

Envoyé par sematimo

Donc ne peut fonctionner que si tout se trouve sur le même disque

Une solution à ce problème peut passer par la création d'un "Soft Link".

Ce soft link est une sorte de raccourcis qui, s'il est créé sur C et référençant un sous arbre de D (un dossier), fera apparaître ce sous arbre comme faisant partie de C à l'emplacement du Soft link. Ce qui devrait permettre d'atteindre les éléments de cette partie référencée de D: via un chemin relatif passant par le lien symbolique.

Je ne suis pas spécialiste dans ce domaine mais si cette voie t'intéresse vois https://www.makeuseof.com/guide-crea...ks-windows-10/) et/ou consulte le sous-forum Systèmes/Windows où de meilleurs spécialistes que moi pourrait t'éclairer.