VBS. Help

Формулировка задачи:

Сразу сорри за ламерский вопрос, но с VB работать не приходилось. Два дня потратил на поиск бага, но так и не нашел.
есть скрипт:
'объявляем
Set objEmail = CreateObject("CDO.Message")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'определяем реквизиты
objEmail.From = "removed@mail.ru"
objEmail.To = "removed@mail.ru"
'проверяем наличие файлов и задаем текст сообщения
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

Решение задачи: «VBS. Help»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> fso <font color="blue">As</font> <font color="blue">New</font> FileSystemObject
    <font color="blue">Dim</font> fld <font color="blue">As</font> <font color="blue">Object</font>
    
    <font color="blue">Set</font> fld = fso.GetFolder(<font color="teal">"G:\HOST\WAIT"</font>)
    <font color="blue">If</font> fld.Files.Count > <font color="darkblue"><b>0</b></font> <font color="blue">Then</font>
        MsgBox <font color="teal">"в директории G:\HOST\WAIT\ есть необработанные файлы"</font>
    <font color="blue">Else</font>
        MsgBox <font color="teal">"директория G:\HOST\WAIT\ пуста"</font>
    <font color="blue">End</font> <font color="blue">If</font>
 
                        