1 Тема от Nikonor_1 (изменено: alexii, 2013-02-28 09:59:59)

  • Nikonor_1
  • Участник
  • Неактивен

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

Пытаюсь сделать скрипт подсчета места на папке со вклюбченным сжатием. Обычный объект "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