Вверх ↑
Ответов: 1731
Рейтинг: 68
#1: 2012-01-01 23:25:35 ЛС | профиль | цитата
Что-то я проглядел в справке.
------------ Дoбавленo в 23.25:
Хм, я что-то не правильно делаю ?
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)
{
}

карма: 1

0