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 |
Partager