Add(MainForm,2953706,161,84)
{
 Width=735
 Height=546
}
Add(Button,5961507,161,133)
{
 Left=10
 Top=10
 Width=45
 TabOrder=-1
 Layout="horiz"
 HeightScale=100
 Caption="File"
 link(onClick,2938612:doExecute,[])
}
Add(StringTable,15335717,371,140)
{
 Left=60
 Top=5
 Width=660
 Height=500
 Columns=#12:Свойство=300|10:Статус=300|
}
Add(Hub,1112375,266,133)
{
 link(onEvent1,15335717:doClear,[(354,139)(354,153)])
 link(onEvent2,8070509:doWork,[])
}
Add(VBJScript,8070509,301,140)
{
 WorkPoints=#6:doWork|
 EventPoints=#6:onRead|
 Script=#18:Dim ArrDataStr(39)|8:Dim Path|12:Dim Filename|0:|51:Set objShellApp = CreateObject("Shell.Application")|52:Set FSO = CreateObject("Scripting.FileSystemObject")|0:|0:|0:|23:Sub doWork(Data, Index)|0:|42:      Path = FSO.GetParentFolderName(Data)|38:      Filename = FSO.GetFileName(Data)|0:|49:      Set objFolder = objShellApp.NameSpace(Path)|50:      'Set objItem = objFolder.ParseName(Filename)|4:    |23:        For i = 0 to 39|78:          ArrDataStr(i) =  objFolder.GetDetailsOf(objItem, i)                 |12:        Next|5:     |48:     Set objItem = objFolder.ParseName(Filename)|6:      |25:        For i = 0 to 39  |78:          sys.onRead ArrDataStr(i) & ";" & objFolder.GetDetailsOf(objItem, i) |12:        Next|8:        |24:        Erase ArrDataStr|8:        |7:End Sub|
 UseName=0
 link(onRead,15335717:doAdd,[])
}
Add(ODialog,2938612,217,133)
{
 Select=1
 link(onExecute,1112375:doEvent1,[])
}