Dim obj_fso As Object
Dim Obj_fsoFolder As Object
Dim L_FTaille As Long
Str_Fchemin = "\\xxxxxxx\yyyy\zzzz\L-test-SQLReporting2000\V07.00.00"
Set obj_fso = CreateObject("Scripting.FileSystemObject")
Set Obj_fsoFolder = obj_fso.GetFolder(Str_Fchemin)
L_FTaille = Obj_fsoFolder.Size
Set Obj_fsoFolder = Nothing
Set obj_fso = Nothing