On Error GoTo

[vladimirr]

Почему в этом участке кода
Private Sub Command1_Click()
On Error GoTo ErrorHandler
sNameFile = Dir1.Path + "\" + Text1.Text + ".txt"
Set file = a.CreateTextFile(sNameFile)
file.Close
ErrorHandler:
MsgBox "Опиерация создания файла успешно провалилась!", vbCritical, "Мой проект"
File1.Refresh
Dir1.Refresh
End Sub
Всегда выдаётся сообщение об ошибке, хотя файл прекрасно создаётся.

А вот здесь
Private Sub Command2_Click()
On Error GoTo qwer
Set File2 = a.GetFile(Dir1.Path + "\" + File1.FileName)
File2.Delete
File1.Refresh
qwer:
MsgBox "Опирация удаления файла успешно провалилась!", vbCritical, "Мой проект"
End Sub
При возникновении ошибки выдаётся обычное приглашение на отладку.
Почему?

[hCORe]

Номер 1 - здесь в любом случае идет переход на метку ErrorHandler. В случае ошибки - немедленный, в случае нормальной работы - последовательный. Просто используй этот код:

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

Private Sub Command1_Click()
On Error GoTo ErrorHandler
Dim DPath as String
DPath = Dir1.Path
'если это буква диска, то обрезать
If Len(DPath) = 3 Then DPath = Mid(DPath,1,2)
If Len(Text1.Text)=0 Then
MsgBox "Пустые файлы не создаем!"
Exit Sub
End If
sNameFile = DPath & "\" & Text1.Text & ".txt"
Set file = a.CreateTextFile(sNameFile)
file.Close
GoTo NormalEnd
ErrorHandler:
MsgBox "Операция создания файла успешно провалилась!", vbCritical, "Мой проект"
NormalEnd:
File1.Refresh
Dir1.Refresh
End Sub

Номер 2 - это типичный глюк VB. Если уж так хочется, используй инструкцию On Error Resume Next, а после необходимых процедур проверяй, есть ли ошибка:

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

If Err<>0 Then
MsgBox "Ошибочка, сэр!"
'очистка
Err.Clear
End If

[RayShade]

2 hCORe

Зачем городить две метки, если можно просто снести ErrorHandler в самый конец субы, а перед ним вставить Exit Sub?

[vladimirr]

Хорошо, спасибо. Но вот при создании файла с тем же именем (по сути, единственная ошибка, которая тут может возникнуть) сообщение не появляется! Причём ни в первом случае (с 2 метками), ни во втором!

[hCORe]

Так он же перезаписывается... Либо используй функцию FileSystemObject FileExists:

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

Dim fso As FileSystemObject
If fso.FileExists("<путь к файлу>") Then _
fso.DeleteFile "<путь к файлу>", True

или стандартную VBшную функцию Dir:

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

If Len(Dir("<путь к файлу>"))<>0 Then _
Kill "<путь к файлу>"

[RayShade]

И еще одно замечание - код

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

If Len(Dir("<путь к файлу>"))=0 Then _
Kill "<путь к файлу>"

Бессмысленен и ошибочен - убить файл, которого нет, нельзя.
надо тогда уж

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

If Len(Dir("<путь к файлу>"))<>0 Then _
Kill "<путь к файлу>"

[vladimirr]

Тут курьёз в том, что при удалении всё идёт прекрасно. Проблема – при создании файла. Под словами «во втором» – я имел ввиду второй ответ, после модератора, но тем не менее огромное спасибо.

[hCORe]

Ошибка в примере уже исправлена

[vladimirr]

Всё, дошло, ещё раз благодарю, вы мне очень помогли.