Robot
Premium Lite
- Регистрация
- 24 Апр 2016
- Сообщения
- 147
- Реакции
- 202
- Тема Автор Вы автор данного материала? |
- #1
Голосов: 0
Скрипт был написан когда на компьютере работало несколько пользователей, и один из пользователей оставлял на рабочем столе файлы с флэшек и из интернета, не проверяя их размер. В результате размер папки разрастался до неимоверных размеров. И часто на жестком диске оставалось мало места из-за этого.
Что делает скрипт: он сравнивает размер выбранной папки с лимитом (в мегабайтах), и, если размер папки больше - выдает сообщение об этом. Этого напоминания было достаточно, чтобы пользователь удалял ненужные файлы.
В моем случае скрипт был добавлен в автозагрузку, т.е., запускался при каждом старте Windows.
Инструкция по применению:
Текст скрипта:
[HIDEPL="10,10"]Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set Folder = FSO.GetFolder("f:\temp")
nMaxFolderSizeMB = 200
nFoldSizeMB = Folder.Size / 1048576
if nFoldSizeMB > nMaxFolderSize Then
Str = vbNullString
Str = Str & "Размер папки " & Folder.Path & vbCrLf
Str = Str & " - " & Round(nFoldSizeMB,2) & " MB" & vbCrLf
MsgBox Str
End If [/HIDEPL]
В Windows должен быть Windows Scripting Host (по умолчанию, вроде бы и так есть)
Сохраняем текст скрипта в файл с названием, например, CheckFolderSize.vbs в папку, например, C:\Scripts
В строчке nMaxFolderSizeMB = 200 вместо 200 ставим максимальный размер в мегабайтах
В строчке Set Folder = FSO.GetFolder("f:\temp") - f:\temp заменяем на путь отслеживаемой папки.
Добавляем скрипт в автозагрузку.
Как добавить программу в автозагрузку подробно написано здесь: http://remontka.pro/autorun-windows-10/
Что делает скрипт: он сравнивает размер выбранной папки с лимитом (в мегабайтах), и, если размер папки больше - выдает сообщение об этом. Этого напоминания было достаточно, чтобы пользователь удалял ненужные файлы.
В моем случае скрипт был добавлен в автозагрузку, т.е., запускался при каждом старте Windows.
Инструкция по применению:
Текст скрипта:
[HIDEPL="10,10"]Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set Folder = FSO.GetFolder("f:\temp")
nMaxFolderSizeMB = 200
nFoldSizeMB = Folder.Size / 1048576
if nFoldSizeMB > nMaxFolderSize Then
Str = vbNullString
Str = Str & "Размер папки " & Folder.Path & vbCrLf
Str = Str & " - " & Round(nFoldSizeMB,2) & " MB" & vbCrLf
MsgBox Str
End If [/HIDEPL]
В Windows должен быть Windows Scripting Host (по умолчанию, вроде бы и так есть)
Сохраняем текст скрипта в файл с названием, например, CheckFolderSize.vbs в папку, например, C:\Scripts
В строчке nMaxFolderSizeMB = 200 вместо 200 ставим максимальный размер в мегабайтах
В строчке Set Folder = FSO.GetFolder("f:\temp") - f:\temp заменяем на путь отслеживаемой папки.
Добавляем скрипт в автозагрузку.
Как добавить программу в автозагрузку подробно написано здесь: http://remontka.pro/autorun-windows-10/