oui j’étais Je@nb en train de voir cette méthode avec le listing dans le repertoire.
Je liste le nombre de fichier dans le repertoire si j'ai un code d'erreur different de 0 c'est qu'ils n'ont pas le droit de lister.
j'ai regardé get-abe, mais je n'ai rien trouvé
Code :
- on error resume next
- set RepQblocdir = Objfso.GetFolder(StrEmplacementQblocDeg)
- count = 0
- For Each fichier In RepQblocdir.files
- count = count + 1
- Next
- If Err.Number = 0 then
- 'code si ils ont les droits
- else
- 'code si ils n'ont pas les droits
- end if
|
ça fonctionne et c'est en prod
Message édité par skoizer le 05-07-2016 à 15:07:41
---------------
je veux tout, tout de suite, et gratuitement ! miladiou !