Discussion :

[copain68]

Bonjour,

Comment peut on connaitre la localisation d'un répertoire?

ex si je sélectionne un dossier sur une machine distante cela doit être écrit "Distant"
et si je le sélectionne sur mon disque local cela doit être écrit "Local"

Merci pour vos aides.

[free07]

Bonjour,

Je ne sais pas si j'ai bien compris la question mais un dossier distant se caractérise par son chemin UNC et ce chemin UNC commence par \\

Cela fait la différence avec un dossier local.

[copain68]

Voilà j'ai trouvé ma réponse a ma question et je vous la partage:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
if pos('\\', cxShellComboBox1.Text)<>0 then
 begin
    form1.dxStatusBar1.Panels[2].Text:='Distant';
    form1.dxStatusBar1.Panels[1].Text:=cxShellComboBox1.Text;
 end
 else
 begin
   form1.dxStatusBar1.Panels[2].Text:='Local';
   form1.dxStatusBar1.Panels[1].Text:=cxShellComboBox1.Text;
 end;
   application.processmessages;
end;

[guillemouze]

Attention, si tu as un lecteur reseau, son chemin sera par exemple Z:\ alors que c'est un dossier reseau

[ApproxDev]

Bonjour,

Attention, si tu as un lecteur reseau, son chemin sera par exemple Z:\ alors que c'est un dossier reseau

Dans ce cas-là, tu utilises System.SysUtils.ExpandUNCFilename('Z:\'). Pour un lecteur local, tu obtiendras Z:\; Et pour un lecteur distant, tu obtiendras une adresse UNC du genre \\monserveur\monrep.

Cordialement.

[Andnotor]

Vous ne tenez toujours pas compte de tous les cas:

• un chemin local pourrait très bien être exprimé en UNC ;
• un chemin est limité à MAX_PATH à moins qu'il ne soit préfixé par \\?\ et un long chemin UNC par \\?\UNC\.

\\ ne signifie donc pas forcément distant

Cela dit, il y a une API pour cela : GetDriveType

Code :

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

1
2
3
4
function IsRemotePath(aPath :string) :boolean;
begin
  Result := GetDriveType(PChar(IncludeTrailingPathDelimiter(aPath))) = DRIVE_REMOTE;
end;

Il pourrait encore être judicieux de traiter le cas des chemins relatifs (ExpandFileName).

[ApproxDev]

Oui, si vraiment on veut être exhaustif, il faut alors passer par les API Windows comme les Volume Management Functions & autres WNetGetConnection function. Et encore, je crois me rappeler que certains serveurs samba réservent des surprises.

De l'énoncé de la question posée, on peut supposer que les connexions sont ordinaires (et usuelles).

Cordialement.