#bas
On Error Resume Next
Set objShellApp = CreateObject("Shell.Application")
Set objFolder = objShellApp.BrowseForFolder(0, "Выбор папки", 0, "C:")
MsgBox objFolder.Self.Path, vbInformation
If Err.Number <> 0 Then
    MsgBox "Папка не выбрана!", vbInformation
End If

Add(MainForm,2953706,70,105)
{
 link(onCreate,8479682:doPath,[])
}
Add(VBJScript,8479682,133,119)
{
 WorkPoints=#6:doPath|
 EventPoints=#6:onPath|
 Script=#20:Dim strPath, strDir |0:|23:Sub doWork(Data, Index)|20:  Select Case Index |18:    Case "doPath" |25:     On Error Resume Next|56:     Set objShellApp = CreateObject("Shell.Application")|76:     Set objFolder = objShellApp.BrowseForFolder(0, "Выбор папки", 0, "C:")|50:     sys.onPath "Путь = " & objFolder.Self.Path   |20:      End Select    |13:  End Select |8:End Sub |
 UseName=0
 link(onPath,12562549:doMessage,[])
}
Add(Message,12562549,196,119)
{
}