Любой язык - Узнать размер файла и отправить алерт

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

Любой язык - Узнать размер файла и отправить алерт

Dreamer_UFA

Ветеран

Сообщения: 757
Благодарности: 112

Конфигурация

Профиль | Отправить PM | Цитировать

Добрый день.

Помогите написать код который получает размер файла, сравнивает с эталоном и отправляет алерт назаданный адрес.
С алертом я разберусь, вот получить размер файла и сравнить - для менятемный лес.

А по сути, мне надо контролировать файлы от Outlook Express . Если размер папки Входящие.dbx равен или больше 1,5 Гб - отправляется уведомление. Планирую вставить в планировщик и запускать раз в сутки.

Как то так

Отправлено: 15:00, 16-12-2014

Iska

Ветеран

Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать

Примерная болванка:

Код:

Option Explicit

Dim objWshShell
Dim objFSO

Dim strGUID
Dim strPath4Store
Dim strPath2Inbox


Set objWshShell = WScript.CreateObject("WScript.Shell")
Set objFSO      = WScript.CreateObject("Scripting.FileSystemObject")

strGUID       = objWshShell.RegRead("HKEY_CURRENT_USER\Identities\Last User ID")
strPath4Store = objWshShell.RegRead("HKEY_CURRENT_USER\Identities\" & strGUID & "\Software\Microsoft\Outlook Express\5.0\Store Root")
strPath2Inbox = objFSO.BuildPath(objWshShell.ExpandEnvironmentStrings(strPath4Store), "Входящие.dbx")

If objFSO.FileExists(strPath2Inbox) Then
	If objFSO.GetFile(strPath2Inbox).Size >= 1.5 * 2^30 Then
		' Alert here
	Else
		' Nothing to do
	End If
Else
	WScript.Echo "Can't find file [" & strPath2Inbox & "]."
	WScript.Quit 1
End If

Set objFSO      = Nothing
Set objWshShell = Nothing

WScript.Quit 0

Проверяйте.

Отправлено: 19:21, 16-12-2014 | #2