Запрос критериев NHibernate - отличный выбор

Да, это может быть задано сценарием с VBScript. Например, следующий код может создать zip из каталога:

Dim fso, winShell, MyTarget, MySource, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set winShell = createObject("shell.application")


MyTarget = Wscript.Arguments.Item(0)
MySource = Wscript.Arguments.Item(1)

Wscript.Echo "Adding " & MySource & " to " & MyTarget

'create a new clean zip archive
Set file = fso.CreateTextFile(MyTarget, True)
file.write("PK" & chr(5) & chr(6) & string(18,chr(0)))
file.close

winShell.NameSpace(MyTarget).CopyHere winShell.NameSpace(MySource).Items

do until winShell.namespace(MyTarget).items.count = winShell.namespace(MySource).items.count
    wscript.sleep 1000 
loop

Set winShell = Nothing
Set fso = Nothing

можно также найти http://www.naterice.com/blog/template_permalink.asp?id=64 полезный, поскольку это включает полное, Разархивировали/Архивировали реализацию в VBScript.

, Если Вы делаете проверку размера, каждые 500 мс, а не объект рассчитывают, это работает лучше на большие файлы. Выиграйте 7 записей файл немедленно, хотя он не закончил сжиматься:

set fso=createobject("scripting.filesystemobject")
Set h=fso.getFile(DestZip)
do
    wscript.sleep 500
    max = h.size
loop while h.size > max 

Работает отлично для огромных количеств файлов журнала.