"Permission refusé"-taille d'un dossier

Question

Mr_toto

  Je doit faire un programme qui lit le nom et la taille des dossiers présents sur un réseau.
  Lorsque je veut lire la taille d'un dossier auquel je n'ai pas accès, je reçoit le message d'erreur suivant:"Permission refusé"
  Normal vu que je ne suis pas administrateur, Je voudrait savoir quelle condition ajouter pour que l'intruction "..size..." ne s'execute lorsque je n'ai pas les permissions
  Voici le code :

Sub TailleDossier(NomDossier As String)
'déclare un objet FSO et un répertoire :
Dim vFSO, vFolder
Dim TailleKO As Long 'Taille en kilo octets
Dim TailleMO As Single 'Taille en Mega octets
   
    Set vFSO = CreateObject("Scripting.FileSystemObject")
    ' On récupere le répertoire :
    Set vFolder = vFSO.GetFolder(NomDossier)
       
    ' on obtiens la taille de tous les fichiers et sous-dossiers
    TailleKO = Int((vFolder.Size) / 1024)
    TailleMO = TailleKO / 1024

End Sub

Je vous remercie d'avance

cs_rene38 · Answer

Bonjour

Tu mets une gestion d'erreur dans ton Sub
Sub TailleDossier(NomDossier As String)
On Error Goto Refus
....
Exit Sub
Refus:
If Err = 70 Then
Err=0
MsgBox "Permission refusée"
End Sub

gplog · Answer

Mr_toto

Merci beaucoup ça fonctionne et c'est très simple !

"Permission refusé"->taille d'un dossier

2 réponses

Discussions similaires