| Dreamer_UFA |
16-12-2014 15:00 2444631 |
Узнать размер файла и отправить алерт
Добрый день.
Помогите написать код который получает размер файла, сравнивает с эталоном и отправляет алерт назаданный адрес.
С алертом я разберусь, вот получить размер файла и сравнить - для менятемный лес.
А по сути, мне надо контролировать файлы от Outlook Express . Если размер папки Входящие.dbx равен или больше 1,5 Гб - отправляется уведомление. Планирую вставить в планировщик и запускать раз в сутки.
Как то так
|
Примерная болванка:
Код:
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
Проверяйте. |
Время: 16:35.
© OSzone.net 2001-
