Bonjour à tous,

Pour compter le nombre de dossiers, de sous-dossiers et calculer la taille totale, j'utilise le
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub NBdossiersNBfichiersTaillesFichiers()
Dim GestionFichier As New Scripting.FileSystemObject
Dim Chemin As String
Chemin = "C:\Users\...\"
MsgBox "Nombre de sous-dossiers dans le dossier :" & vbLf & Chemin & " = " & GestionFichier.GetFolder(Chemin).SubFolders.Count
'cela revoie le bon résultat
MsgBox "Nombre de fichiers dans le dossier" & vbLf & Chemin & " = " & GestionFichier.GetFolder(Chemin).Files.Count
'cela revoie le bon résultat
MsgBox "Taille totale des fichiers dans le dossier :" & vbLf & Chemin & " = " & GestionFichier.GetFolder(Chemin).Size & " octets"
'cela renvoie "Erreur d'exécution 70" "Permission refusée"
End Sub
Pourquoi ce message d'erreur, c'est certainement un problème d'autorisation, comment le régler ?

Merci d'avance votre réponse