Отловить ошибку сервера

[Юджин]

Может неправильно воспользовался поиском, но не нашел ответа на вопрос: есть код с использованием inet и адресом ftp. как отловить ошибку, если адрес неправильно введен? код приблизительно такой

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

Private Sub Timer1_Timer()
Dim m() As String
Dim txt123 As String
    Dim DirectoryText
    txt123 = "ftp://" + txt2 + ":" + txt3 + "@" + txt1
    DirectoryText = Inet1.OpenURL(txt123)
    DirectoryTextLength = Len(DirectoryText)
    StringEnd = InStr(DirectoryText, ".zip<")
    While (StringEnd <> 0)
        StringLength = 0
        While (InStr(StringEnd - StringLength, Left(DirectoryText, StringEnd), """") = 0)
            StringLength = StringLength + 1
        Wend
        StringLength = StringLength - 1
        Set i = ListView1.ListItems.Add(1, , Mid(DirectoryText, StringEnd - StringLength + 1, StringLength - 1) + ".zip")
        i.SubItems(1) = Mid$(DirectoryText, StringEnd - StringLength + 37, StringLength + 12)
  DirectoryText = Right(DirectoryText, DirectoryTextLength - StringEnd)
  DirectoryTextLength = DirectoryTextLength - StringEnd
  StringEnd = InStr(DirectoryText, ".zip<")
    Wend
End Sub


[Юджин]

короче воспользоваться функцией On Error GoTo ...