Bonjour,

il faut que je mesure la taille de certains répertoires pour faire des alertes d'encombrement de disque.

comme je dois cibler les répertoires sensibles j'utilise un programme vba, ou je liste ces répertoires et j'en fais la mesure:
voilà mon bout de code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub mesure_sys()
 
Dim oFSO As Scripting.FileSystemObject
Dim taille As Double
Set oFSO = New Scripting.FileSystemObject
 
Sheets("Mesures_s").Activate
 
n_rep = Cells(3, 1).Value
 
Set oFld = oFSO.GetFolder(n_rep)
nom = oFld.Name
 
taille = FormatNumber(oFld.Size / 1024 / 1024, 0)
Cells(3, 2).Value = taille
End Sub
il se passe que le programme plante lors de la mesure de la taille du répertoire car, je suppose, certains noms de sous répertoire sont trop longs

effectivement si je fais un dir /d en dos sur les répertoires que je cherche
dos me signale des noms trop longs
Y a t'il moyen de contourner ce bug ?