Еще одна ошибка в реализации 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
, то все нормально будет работать в обоих случаях.