Lettre de chemin vers UNC

[Louis Griffont]

Je poste ici, le source résultant d'une discussion sur le forum. Des fois que ça serve.

Le but est de transformer un chemin du style "X:\chemin\" avec X correspondant à une redirection de connexion réseau, par \\serveur\dossierpartage\chemin\.

La fonction utilise une dll windows mpr.dll et la fonction WNetGetConnexionA

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Procédure FLecteur( cp_Chemin)
local
	cl_Retour	est une chaine
	zl_Lecteur	est une chaine asciiz sur 3
	zl_Chemin	est une chaine Asciiz sur 255 = complete( " ", 255)
	nl_Taille	est un entier = taille( zl_Chemin)
	
si cp_Chemin[[ à 2]] <> "\\" alors
	zl_Lecteur = cp_Chemin[[ à 2]]
	si AppelDLL32("mpr.dll","WNetGetConnectionA" , &zl_Lecteur,  &Zl_Chemin, &nl_Taille) <> 0 alors
            si sansespace( zl_Chemin) <> "" alors
		cl_Retour = zl_Chemin+cp_Chemin[[ 3 a]]
            sinon
                cl_Retour = cp_Chemin
            fin
	sinon
		cl_Retour = cp_Chemin
	FIn
sinon
	cl_Retour = cp_Chemin
FIN
renvoyer cl_Retour

[bastiencb]

Plus simplement, pour obtenir le chemin UNC d'un lecteur mappé sur un répertoire réseau, on peut utiliser :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
PROCEDURE CheminLocal_Vers_UNC(_sCheminLocal est une chaîne)

LOCAL
	sRepLocal est une chaîne
	sDisque est une chaîne

sDisque = fExtraitChemin(_sCheminLocal,fDisque)
sRepLocal = fExtraitChemin(_sCheminLocal,fRépertoire+fFichier)

SI RéseauNomRep(sDisque) <> "" ALORS
	sDisque = RéseauNomRep(sDisque)
FIN

RENVOYER sDisque+sRepLocal

Et pour l'opération inverse, obtenir le chemin local à partir d'un chemin UNC :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
PROCEDURE UNC_Vers_CheminLocal(_sCheminUNC est une chaîne)

LOCAL
	sLecteurUNC est une chaîne
	sRepUNC est une chaîne
	sDisque est une chaîne
	
sLecteurUNC = fExtraitChemin(_sCheminUNC,fDisque)
sRepUNC = fExtraitChemin(_sCheminUNC,fRépertoire+fFichier)

POUR iLecteur = Asc("A") _A_ Asc("Z")	
	sDisque = Caract(iLecteur)
	SI fDisquePrêt(sDisque) ALORS
		SI Minuscule(RéseauNomRep(sDisque+":")) = Minuscule(sLecteurUNC) ALORS
			RENVOYER sDisque+":"+sRepUNC	
		FIN
	FIN
FIN

RENVOYER ""

Bonne prog !

[Louis Griffont]

Ça arrive trop tard, mais merci quand même !

[mail.spam]

Il faut rappeler que la fonction RéseauNomRep est présente à partir de Windev 9.
Le code de Louis fonctionne pour la version 5.5.

[Louis Griffont]

Désolé de te contredire mail.spam mais la fonction ReseauNomRep existe en Windev 5.5 et c'est moi qui n'ai pas suffisamment cherché !