Add(MainForm,2953706,182,182)
{
 Width=600
 Height=451
 Caption="Список специальных папок"
 link(onCreate,279962:onWork,[])
}
Add(StringTable,7691691,280,196)
{
 Width=584
 Height=412
 Align=5
 Columns=#5:##=40|18:Название папки=120|8:Путь=400|
 Point(doSort)
 Point(onMouseDown)
 link(onMouseDown,4871043:doEvent,[])
}
Add(IndexToChanel,4871043,336,203)
{
 link(onEvent2,14749428:doPopupHere,[])
}
Add(PopupMenu,14749428,392,210)
{
 Menu=#7:Открыть|
 link(onClick,5792010:doSplit,[])
}
Add(StrMask,2627132,497,210)
{
 Mask="::{*"
 link(onFalse,3289686:doWork2,[])
 link(onTrue,2852853:doStrCat,[(543,223)(543,230)])
}
Add(MultiStrData,5792010,441,210)
{
 From=2
 Count=1
 link(Str,7691691:Select,[(447,201)(384,201)(384,243)(293,243)])
 link(onPart1,2627132:doCompare,[])
}
Add(WinExec,877749,616,210)
{
 FileName="explorer"
}
Add(StrCat,2852853,553,224)
{
 Str1="Shell:"
 link(onStrCat,3289686:doWork3,[(599,230)])
}
Add(HubEx,3289686,595,210)
{
 link(onEvent,877749:doExec,[])
}
Add(VBJScript,279962,231,196)
{
 @Hint=#7:SendKey|
 WorkPoints=#6:onWork|
 EventPoints=#7:onEvent|
 Script=#23:Sub doWork(Data, Index)|5:Dim i|20:On Error Resume Next|48:Set objShell = CreateObject("Shell.Application")|0:|16:For i = 0 to 255|90:sys.onEvent i & ";" & objShell.Namespace(i).Title  & ";" & objShell.Namespace(i).Self.Path|4:Next|7:End Sub|
 UseName=0
 link(onEvent,7691691:doAdd,[])
}