Добрый день.

На одном сетевом диске есть каталог "arch" в нем каждый день появляется новая папка с именем типа "06.12.2013". В эту папку падают файлы из подобной папки на другом сетевом диске и прибавляется файл .log к каждому файлу.
Задача:
1.Скрипт должен каждый день сравнивать кол-во файлов за исключением ".log".
2. При отсутствии сет. дисков выйти в ошибку.
3. Если количество файлов не равно, послать сообщение на почту.

a. VB
б.Не знаю как сделать, что бы при появлении папки с новой датой проверял её.
да и то что есть не работает, ругается на FilesCounting(несоответствие типа)



Модератор: Учимся использовать тэги оформления кода - FAQ

Dim PathFolder1, PathFolder2, FilesExtesion
PathFolder1 = "C:\Users\Пользователь\Desktop\OpenOffice.org 3.4.1 (ru) Installation Files\readmes"
PathFolder2 = "C:\Users\Пользователь\Desktop\OpenOffice.org 3.4.1 (ru) Installation Files\redist"
FilesExtesion = "txt"

If (FilesCounting(PathFolder1,FilesExtesion) = FilesCounting(PathFolder2,FilesExtesion)) Then
WScript.Echo "Количество файлов совпало"
Else
WScript.Echo "Количество файлов не совпало"
End If

' ======================================
Function FilesCounting(Path, Extension)
Dim File, Value
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Path)
Value = 0

For Each File In Folder.Files
If (UCase(FSO.GetExtensionName(File.Path)) = UCase(Extension)) Then
Value = Value + 1
End If
Next
FilesCounting = Value
End Function

в рабочей версии скрипта каталоги будут типа ddmmgggg, как сделать чтобы функция понимала это и сверяла папки только с новыми датами? Какой признак поставить, что бы сравнение велось не по "txt", а по всем остальным форматам? Как мне оформить свое сообщение - изучаю)

в VB я 0 так что не ругайтесь. Это разовое задание, которое надо сделать.

Представленный код работает.