Add(MainForm,15255170,273,133)
{
 Width=812
 Height=557
}
Add(Edit,1173850,406,77)
{
 Left=15
 Top=10
 Width=425
 Height=25
 Font=[MS Sans Serif,12,0,0,1]
 Text="c:\Windows"
}
Add(Button,2387793,322,133)
{
 Left=725
 Top=10
 Width=60
 Height=25
 Font=[MS Sans Serif,12,0,0,1]
 Caption="Поиск"
 link(onClick,10074103:doEvent1,[])
}
Add(Memo,9841189,490,140)
{
 Left=15
 Top=85
 Width=750
 Height=120
 ScrollBars=3
 Point(doLoad)
}
Add(VBJScript,14221332,406,140)
{
 WorkPoints=#6:doWork|
 EventPoints=#8:onSearch|7:onError|
 DataPoints=#10:folderPath|8:fileMask|0:|
 Script=#22:Sub doWork(Data,Index)|53:  Set objShellApp = CreateObject("Shell.Application")|55:  Set objFolder = objShellApp.NameSpace(sys.folderPath)|40:  Set objFolderItems = objFolder.Items()|44:  objFolderItems.Filter 64+128, sys.fileMask|33:  For Each file in objFolderItems|23:      sys.onSearch file|6:  Next|7:End Sub|
 UseName=0
 link(folderPath,1173850:Text,[])
 link(fileMask,8296305:Text,[(419,117)(454,117)])
 link(onSearch,1782009:doWork2,[])
 link(onError,1782009:doWork3,[(459,153)])
}
Add(Edit,8296305,448,74)
{
 Left=15
 Top=45
 Width=425
 Height=25
 Font=[MS Sans Serif,12,0,0,1]
 Text="*.exe"
}
Add(HubEx,1782009,455,140)
{
 link(onEvent,9841189:doAdd,[])
}
Add(Hub,10074103,371,133)
{
 link(onEvent1,9841189:doClear,[(466,139)(466,153)])
 link(onEvent2,14221332:doWork,[])
}