Сразу сорри за ламерский вопрос, но с VB работать не приходилось. Два дня потратил на поиск бага, но так и не нашел.
есть скрипт:

'объявляем
Set objEmail = CreateObject("CDO.Message")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'определяем реквизиты
objEmail.From = "sss@bla-bla.com"
objEmail.To = "sss@bla-bla.com"
'проверяем наличие файлов и задаем текст сообщения
If objFSO.FileExists("G:\HOST\WAIT\*.*")=true Then
objEmail.Subject = "результаты сканирования"
objEmail.Textbody = "в директории G:\HOST\WAIT\ есть необработанные файлы"

Else
objEmail.Subject = "результаты сканирования"
objEmail.Textbody = "директория G:\HOST\WAIT\ пуста"

End If
'отсылаем
objEmail.Send


Скрипт отрабатывает, но не зависимо от наличия файлов в проверяемой директории отсылается второй вариант текстбоди. Где я ошибся? Ткните носом, плиз, если не тяжело..

С уважением к всезнающему all

Спасибо за указание правильного пути!

Правда в вашем варианте была ругня на Dim fld As Object . Но я убрал "As object" и вот в таком виде все заработало:


Dim fld
Set objEmail = CreateObject("CDO.Message")
Set objFSO = CreateObject("Scripting.FileSystemObject")

objEmail.From = "sss@bla-bla.com"
objEmail.To = "sss@bla-bla.com"
objEmail.Subject = "Результаты сканирования "

set fld=objFSO.GetFolder("G:\HOST\WAIT")

If fld.Files.Count > 0 Then
objEmail.Textbody = "В директории G:\HOST\WAIT\ есть необработанная почта"
Else
objEmail.Textbody = "директория  G:\HOST\WAIT\ пуста"
End If

objEmail.Send

Интересная и функциональная вещь это VBS - надо будет букварь хороший присмотреть.

big-duke commit;
Интересная и функциональная вещь это VBS - надо будет букварь хороший присмотреть.
вот букварь

Оттуда все премудрости и черпаю - но вечно в инете сидеть не будешь. Люблю все же бумажные мануалы. Хотя в инете более обширной и толковой информации нет. Да и не удивительно :)

Андрей IlЕсть script_repository_1_1.chm, примерно 262 Кб. Не все, но мне хватает. Если надо, вышлю.

Если можно - то на мыло: sib@gala.net. Спасибо!