Add(MainForm,2953706,21,105){
 Height=99
 link(onCreate,2137016:doEnum,[])
}
Add(VBJScript,2137016,140,119)
{
 WorkPoints=#6:doEnum|
 EventPoints=#6:onEnum|
 Script=#23:Sub doWork(Data, Index)|27:Const USER_DOCUMENTS = &H28|50:  Set objShell = CreateObject("Shell.Application")|51: Set objFolder = objShell.Namespace(USER_DOCUMENTS)|1: |35: Set objFolderItem = objFolder.Self|33:  'sys.onEnum  objFolderItem.Path|56:  Set objFolder = objShell.Namespace(objFolderItem.Path)|2:  |32:  Set colItems = objFolder.Items|2:  |29: For Each objItem in colItems|0:|28:    Select Case objItem.Name|4:    |23:        Case "Загрузки"|75:            sys.onEnum Replace(objFolderItem.Path&"\"&objItem.Name,"\","/")|8:        |22:         'Case  else  |27:         ' sys.onEnum   "0"|16:    End Select  |7:  next |7:End Sub|
 UseName=0
 link(onEnum,11091644:doText,[])
}
Add(Label,11091644,217,119)
{
 Left=10
 Top=10
 Width=4
 Height=4
 Caption=""
}
Add(Button,16139813,154,182)
{
 Left=255
 Top=30
 Width=120
 Caption="Открыть"
 link(onClick,15025258:doString,[])
}
Add(WinExec,15007898,322,175)
{
}
Add(FormatStr,15025258,217,182)
{
 DataCount=1
 Mask=""%1""
 link(onFString,15007898:doShellExec,[])
 link(Str1,11091644:Caption,[])
}