On Error работает только 1 раз

[Niko]

NumFile=0
1:
On Error GoTo 1
NumFile = NumFile + 1
NameFile = ShifrO & "-" & NumFile
fso.MoveFile cDlg.FileName, PathTmp & "\" & NameFile

Мне нужно переименовать файл. Новое имя состоит из строки и номера. Я не знаю есть ли файлы с такими же номерами. В данном примере если есть файл ХХХ-1 то фокус передается на метку и создается файл ХХХ-2. Но если есть файли и ХХХ-1 и ХХХ-2, то выдается ошибка №58 "File already exsists", т.е. в случае ошибки GoTo 1 срабатывает только 1 раз.

Подскажите плиз, что тут можно сделать.

[Tamplier]

Код: Выделить всё

NumFile=0 1: On Error GoTo 1 NumFile = NumFile + 1 NameFile = ShifrO & "-" & NumFile fso.MoveFile cDlg.FileName, PathTmp & "\" & NameFile

Начнем с того, что GoTo так просто использовать просто не принято. Не говорю уж о том, что это неприлично и неправильно.

Код: Выделить всё

NumFile=0
On Error GoTo 1
NumFile = NumFile + 1
NameFile = ShifrO & "-" & NumFile
If fso.FileExists(PathTmp & "\" & NameFile) Then
    Err.Rase 58
Else
    fso.MoveFile cDlg.FileName, PathTmp & "\" & NameFile
End If

Exit Sub (Function или чт там у тебя)
1:
If Err.Number=58 then MsgBox "Error #58" & vbCrLf & "File " & NameFile & " already exists."


Если я правильно понял, что тебе надо.

А вместо FSO.MoveFile лучше использовать MoveFileEx (апишная фушка). Она помощнее и побыстрее будет.

[alibek]

После обработки ошибки надо вернуть управление основной программе, Resume. Но лучше, конечно, в консерватории подправить, ошибки не так обрабатываются.

[Tamplier]

Ты имеешь ввиду

Код: Выделить всё

1:
If Err.Number=58 then MsgBox "Error #58" & vbCrLf & "File " & NameFile & " already exists."
Resume Next

?
Ну это естественно. Просто, непонятно, есть ли тм что либо еще или нет....

ошибки не так обрабатываются.

Не так. Но это самый простой способ. ИМХО. (да к тому же я других не знаю Не подскажешь, где есть про обработку ошибок? Тока не посылай в поиск. Потом схожу. Интересно для начала услышать мнение живого человека.)

[Antonariy]

После того, как происходит переход на метку 1: в результате ошибки, эта метка считается обработчиком ошибок, а если ошибка произошла в обработчике, выполнение возвращается в обработчик более высокого уровня (если есть), т.е. в процедуру, вызвавщую текущую. И т. д. пока не наткнется на обработчик или не вылетит в винды с необработанной ошибкой.

В твоем случае лучше сделать так:

Код: Выделить всё

on error resume next
NumFile=0
err.raise 123
while err.number<>0
    err.clear
    NumFile = NumFile + 1
    NameFile = ShifrO & "-" & NumFile
    fso.MoveFile cDlg.FileName, PathTmp & "\" & NameFile
wend

Или так:

Код: Выделить всё

    on error goto 1:
    NumFile=0
tryagain:
    NumFile = NumFile + 1
    NameFile = ShifrO & "-" & NumFile
    fso.MoveFile cDlg.FileName, PathTmp & "\" & NameFile
    exit sub
1:
    resume tryagain

Первый способ обработки ошибок называется Inline error handling, второй - Outline error handling.
Tamplier, это тебе ключевые слова
Хотя того, что я рассказал, должно хватить для понимания принцыпа обработки ошибок.

[Niko]

Спасибо, все понял.

[tyomitch]

После обработки ошибки надо вернуть управление основной программе, Resume. Но лучше, конечно, в консерватории подправить, ошибки не так обрабатываются.

Альтернативный (полудокументированный) способ -- On Error GoTo -1

[Roman-vb]

Конечно, On Error GoTo - хорошо(хотя многие хают), но сейчас же (в 21-м веке) есть

Код: Выделить всё

Try

Catch ex As Exception

End Try


[Amed]

У нас же VB6

[Roman-vb]

У нас же VB6

А, ну да. Сам с ним расстаться не могу

[keks-n]

А вручную устроить SEH никак? Народ ведь на асме как-то ошибки обрабатывает...

[keks-n]

Я конечно многого не понимаю, но похоже, что это как-то можно приспособить... Или нет?

[tyomitch]

1. Проблемы никакой нет. Сабж решается использованием Resume либо On Error GoTo -1. Ничего нового изобретать не нужно.

2. Механизм обработки ошибок в VB построен как раз на SEH. Так что конкретно SEH по второму разу приспособить не удастся.