Еще одна ошибка в реализации VBS... 
Код:
dim FSO,Folder,Str, sF
sF = "C:\Boot"
Set FSO = CreateObject("Scripting.FileSystemObject")
if FSO.FolderExists(sF) then
  Set Folder = FSO.GetFolder(sF)
  Str = Str & "Дата создания - " & Folder.DateCreated & vbCrLf
  Str = Str & "Размер - " & Folder.Size
  MsgBox Str
end if
Записываем этот код в файл test.vbs, запускаем... Получаем окошко с полученной датой и размером папки.
Этот же код суем в триггера BooksCount... И - получаем окошко без даты и размера... 
подсказка: если закомментировать 
Код:
if FSO.FolderExists(sF) then
 и 
Код:
end if
, то все нормально будет работать в обоих случаях.