Comment détecter qu'un répertoire est en réseau ?

Préalable :
J'ai fait une recherche sur "Réseau"
J'ai fait une recherche sur "Répertoire"
J'ai fait d'autres essais de recherches ...

J'ai lu tous les résultats de ces recherches ... j'y ai passé plus de 3 heures
Alors merci par avance de ne pas me répondre qu'il me faut d'abord rechercher dans les sujets déjà traités !

Contexte de ma question :
------------------------
J'ai une application qui illustre un explorateur avec tous les dossiers accessibles. Cette application affiche toutes les images du dossier sélectionné.
Je souhaiterais limiter certains processus ( notamment de refresh automatique ) dans le cas où le dossier sélectionné est sur le réseau et non plus "direct".

Toutes les solutions que j'ai trouvé m'inquiètent car je les trouve "bidouillesques" et je déteste ça.
Je me dis qu'il doit bien exister une solution précise et cartésienne... mais qu'elle est elle ?

ExpandUNCFileName et tester si la réponse commence par "\\" ? ...
1. Faut un nom de fichier pour que cela donne le resultat escompté ... cela oblige donc à aller chercher le nom du 1er fichier de ce dossier... et si le dossier est vide ...
2. En traçant j'ai trouvé que ce n'était pas une garantie absolue de la réponse notamment dans le cas de "lecteurs réseau déclarés"...

Bref je n'aimerais pas mourir bête et surtout je suis curieux de savoir s'il y a une réponse que je n'ai pas été foutu de trouver !

Tu peux utiliser l'api GetDriveType()

cette fonction retourne ces valeurs:

Code:

---

1 2 3 4 5 6 7 8

0 The drive type cannot be determined. 1 The root directory does not exist. DRIVE_REMOVABLE The drive can be removed from the drive. DRIVE_FIXED The disk cannot be removed from the drive. DRIVE_REMOTE The drive is a remote (network) drive. DRIVE_CDROM The drive is a CD-ROM drive. DRIVE_RAMDISK The drive is a RAM disk.

---

Citation:

---

Envoyé par Eric Boisvert

Tu peux utiliser l'api GetDriveType()

cette fonction retourne ces valeurs:

Code:

---

1 2 3 4 5 6 7 8

0 The drive type cannot be determined. 1 The root directory does not exist. DRIVE_REMOVABLE The drive can be removed from the drive. DRIVE_FIXED The disk cannot be removed from the drive. DRIVE_REMOTE The drive is a remote (network) drive. DRIVE_CDROM The drive is a CD-ROM drive. DRIVE_RAMDISK The drive is a RAM disk.

---

---

Merci de ta réponse... :-)
J'ai pas essayé ça ... aussi je vais vérifier et te tiens au courant si ça marche...
EN fait j'ai pas gratté de ce côté des API car j'ai un composant sytème qui me retourne le type du lecteur... or pour les disque fixes réseau il m'indique 'dtfixed' et non pas comme je l'espérais "dtNetWork"...

J'ai peut être hâtivement considéré que ce composant interrogeait cette fonction ... mais je vais vérifier...

Alors résultat des courses ....

Dans l'absolu la réponse est déjà bien plus cohérente que celle de mon composant que je vais m'empresser de virer ... :-)

GetDriveType renvoit bien "Drive_Remote" si en argument je lui envoies un "Path" réseau

1. Truc trés interressant pour ceux qui liront ces posts ... c'est que GetDriveType n'attend pas un "drive" en argument mais gère bien tout path transmis...

2. Par contre me reste un cas de figure idiot à résoudre...
Le cas ou l'user pointe sur un dossier de son propre ordinateur... mais via le l'item "voisinage réseau" de l'explorateur ...
Dans ce cas getdriveType ... indique aussi Drive_Remote ... sans qu'on puisse lui en vouloir vraiment ! :-)

En conclusion ...

Pour les ceux que cela intéress, voili le code de la fonction que j'utilise

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

FUNCTION IsOrdiDir ( Pat : String ) : Boolean ; BEGIN Result := False ; IF directoryExists ( Pat ) THEN // test nécessaire car le composant explorateur illustre des items qui ne sont pas des dossiers... BEGIN i := GetDriveType ( Pchar ( Pat )); case i of DRIVE_FIXED : Result := True ; DRIVE_REMOTE : IF ( Pos ( '\\' + Uppercase ( OrdiName ), Uppercase ( Pat ) = 1 THEN Result := True ; END ; END; END;

---

// Nota : OrdiName est ici une variable qui contient le non de l'ordinateur

Rmarques :
1. Si des fois y'en a qui ont une meilleure solution, surtout plus directe ... je suis preneur...

2. Encore une fois merci de m'avoir fait penser à interroger directement l'API GetdriveType plutôt de faire confiance à un composant qui était censé le faire ...

J'allais aussi propose ce matin, GetDriveType, mais lisant l'aide, j'y ai renoncé, pensant qu'il souhaitait un disque et n'ayant pas le temps de le tester, c'est une information intéressante

cela pourrait mériter de préciser dans FAQ que GetDriveType est ouvert à différent type de chemin ... sans qu'il soit de la forme "C:\DossierLocal" mais aussi de la forme "\\DossierRéseau ..."

Je crois qu'il est mieux de s'en tenir à la documentation...


Peut-être qu'un jour... avec un service pack XX cette fonctionnalité disparaîtra...

Je déteste toujours lorsque les API ne font pas ce qu'ils disent faire...
habituellement, on appèle ça un bug...pour une rare fois, ce bug...ou plutôt ..
cette abus d'utilisation semble faire votre affaire...
mais je trouve dangereux à long terme d'exploiter une fonctionnalité non documentée.

J'utiliserais alors tout de même ceci:

Code:

---

1 2	GetDriveType(PChar(ExtractFileDrive(Path)+'\'));

---

Citation:

---

Envoyé par Eric Boisvert

Je crois qu'il est mieux de s'en tenir à la documentation...


Peut-être qu'un jour... avec un service pack XX cette fonctionnalité disparaîtra...

Je déteste toujours lorsque les API ne font pas ce qu'ils disent faire...
habituellement, on appèle ça un bug...pour une rare fois, ce bug...ou plutôt ..
cette abus d'utilisation semble faire votre affaire...
mais je trouve dangereux à long terme d'exploiter une fonctionnalité non documentée.

J'utiliserais alors tout de même ceci:

Code:

---

1 2	GetDriveType(PChar(ExtractFileDrive(Path)+'\'));

---

---

C'est implicitement ce que fait concrêtement la fonction que j'ai codé...
J'ai simplement voulu simplifier au max pour n'illustrer que l'essentiel.
En fait j 'ai 2 lignes de code en plus en entrée de la fonction :

Pat := extractFileDrive ( Pat );
IF Pat [length (pat)] <> '\' then pat := pat + '\';