Flasher
|
 Posted: Thu Mar 17, 2016 03:09 Post subject: |
 |
|
Настройка для SCP:
 script.ini | Code: | [Script]
Section=MiddleSize
[MiddleSize]
Script=MiddleSize.vbs
ParseDirs=1 |
MiddleSize.vbs | Code: | 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 |
MiddleSize.vbs | Code: | 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 |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
