VBS. Подсчет места занятое папкой на которое включено сжатие

2013-02-28T05:46:01Z

Пытаюсь сделать скрипт подсчета места на папке со вклюбченным сжатием. Обычный объект "Scripting.FileSystemObject" с функцией Size отображает реальный размер, а не сжатый.
Нашел API процедуру

'Private Declare Function GetCompressedFileSize Lib "kernel32" Alias 
'"GetCompressedFileSize" (ByVal lpFileName As String, lpFileSizeHigh As 
'Long) As Long

использую библиотеку "DynamicWrapperX"

DX.Register "Kernel32.dll", "GetCompressedFileSize","i=w","r=u"
'DX.GetCompressedFileSize sLoc
i=DX.GetCompressedFileSize (sLoc)
MsgBox i
WScript.Echo DX.GetCompressedFileSize (sLoc)

возвращает просто границу типа, а не размер
что не так или где я неправильно делаю?
либо есть уже решение на похожее решение.
Скрипт для мониторинга, мониторинг понимает только VBS и JScript.
Thx

Серый форум — VBS. Подсчет места занятое папкой на которое включено сжатие

VBS. Подсчет места занятое папкой на которое включено сжатие