1 Тема от afteroot

  • afteroot
  • Участник
  • Неактивен

Тема: VBS: Не работает Goto

Всем привет, подскажите плиз! 

Sub Test()
    On Error GoTo Err1
    1<>1
    Exit Sub
Err1:
    Msg "Ошибка"    
    Resume Next
End Sub

Выдает ошибку на Goto, может кто-то подскажет где ошибка?

2 Ответ от smaharbA

  • smaharbA
  • Разработчик
  • Неактивен

Re: VBS: Не работает Goto

это не будет работать в VBS
это код для VB

Я конечно далек от мысли... (с)

3 Ответ от afteroot

  • afteroot
  • Участник
  • Неактивен

Re: VBS: Не работает Goto

smaharbA пишет:

это не будет работать в VBS
это код для VB

А для VBS есть переходы?

4 Ответ от afteroot

  • afteroot
  • Участник
  • Неактивен

Re: VBS: Не работает Goto

Всем спасибо! Нашёл выход!

Просто при опирации любой ставишь 

 On Error Resume Next

Далее

If Err.Number <> 0 Then
   MsgBox "Не удалось создать ключи реестра " & ServiceName
   WScript.Quit
End If

Вуаля, обработчик сработал, что собственно мне и нужно было!
Тема закрыта!:cool:

5 Ответ от Rom5

  • Rom5
  • Участник
  • Неактивен

Re: VBS: Не работает Goto

afteroot пишет:

Просто при опирации любой ставишь 

 On Error Resume Next

Далее
[..]
Вуаля, обработчик сработал, что собственно мне и нужно было!
Тема закрыта!:cool:

Еще вообще-то, если у скрипта есть дальнейшие действия, надо не забывать после обработки ошибки убирать действие "On Error Resume Next" командой:

On Error GoTo 0
WBR. Roman

6 Ответ от afteroot (изменено: alexii, 2012-08-17 15:50:33)

  • afteroot
  • Участник
  • Неактивен

Re: VBS: Не работает Goto

Я ж говорю, что он начинает ручаться именно после GoTo! так что ничего не происходит

7 Ответ от smaharbA

  • smaharbA
  • Разработчик
  • Неактивен

Re: VBS: Не работает Goto

On Error GoTo 0 совсем не тоже самое что On Error GoTo МеткаИлиНомерСтроки

Я конечно далек от мысли... (с)

8 Ответ от afteroot

  • afteroot
  • Участник
  • Неактивен

Re: VBS: Не работает Goto

smaharbA пишет:

On Error GoTo 0 совсем не тоже самое что On Error GoTo МеткаИлиНомерСтроки

Сабж был именно про  GoTo
Второй пост объяснил почему

9 Ответ от smaharbA

  • smaharbA
  • Разработчик
  • Неактивен

Re: VBS: Не работает Goto

поверьте, On Error GoTo 0 - обязательно пригодится

Я конечно далек от мысли... (с)

10 Ответ от afteroot

  • afteroot
  • Участник
  • Неактивен

Re: VBS: Не работает Goto

smaharbA пишет:

поверьте, On Error GoTo 0 - обязательно пригодится

Ок, спасибо!