[Script]
Section=MiddleSize

[MiddleSize]
Script=MiddleSize.vbs
ParseDirs=1

With CreateObject("Scripting.FileSystemObject")
  If .FolderExists(FileName) Then
    Set Files = .GetFolder(FileName).Files
    Count = Files.Count
    If Count Then
      For Each F in Files
        S = S + F.Size
      Next : Size = "  " & Round(S/Count, 0)
      For i = Len(Size) To 3 Step - 3
         C = " " & Mid(Size, i - 2, 3) & C
      Next : Content = LTrim(C)
    End If
  End If
End With

With CreateObject("Scripting.FileSystemObject")
  If .FolderExists(FileName) Then
    Set Files = .GetFolder(FileName).Files
    Count = Files.Count
    If Count Then
      For Each F in Files
        S = S + F.Size
      Next : C = S/Count
      If C >= 1073741824 Then
        C = C/1073741824 : S = "Гб"
      ElseIf C >= 1048576 Then C = C/1048576 : S = "Mб"
      ElseIf C >= 1024 Then C = C/1024 : S = "Кб"
      Else : S = "байт" : C = Round(C, 0) : A = Right(C, 1)
      If Left(Right(C, 2), 1) <> 1 And (A > 1 And A < 5) Then S = "байта"
      End If : Content = Replace(Round(C, 3), ",", " ") & " " & S
    End If
  End If
End With

Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(FileName) Then
  On Error Resume Next
  C = FSO.GetFolder(FileName).Size
  If Err.Number = 0 And C > 0 Then
    On Error Goto 0
    Dim Count : ForFolder FileName : C = C/Count
    If C >= 1073741824 Then
      C = C/1073741824 : S = "Гб"
    ElseIf C >= 1048576 Then C = C/1048576 : S = "Mб"
    ElseIf C >= 1024 Then C = C/1024 : S = "Кб"
    Else : S = "байт" : C = Round(C, 0) : A = Right(C, 1)
      If Left(Right(C, 2), 1) <> 1 And (A > 1 And A < 5) Then S = "байта"
    End If : C = Replace(Round(C, 3), ",", " ") : N = InStrRev(C, " ")
    If N > Len(C) - 3 Then C = Left(C, N) & Left(Mid(C, N + 1) & "00", 3)
    Content = C & " " & S
  End If
End If : Set FSO = Nothing

Sub ForFolder(Folder)
  Set Folder = FSO.GetFolder(Folder)
  Count = Count + Folder.Files.Count
  For Each F In Folder.SubFolders : ForFolder F : Next
End Sub