> myWebResponse = Nothing
> Catch myException As Exception 'Сбой в процессе закрытия ресурса!
> 'Что-то случилось. Освободить ресурс
> attemptCleanup_ThrowNoExceptions(myFileStream, _
> myHTTPResponseStream, myWebResponse)
> 'Теперь, когда ресурс освобожден, повторно сгенерируем исключение,
> 'чтобы сообщить приложению о том, что произошел сбой!
> Throw myException
> End Try
> 'Успешное выполнение!
>End Sub
>'----------------------------------------------
>'Пытается закрыть и освободить все объекты
>'Перехватывает любое вырабатываемое исключение.
>'----------------------------------------------
>Sub attemptCleanup_ThrowNoExceptions( _
> ByVal myFileStream As System.10.FileStream, _
> ByVal myHTTPResponseStream As System.IO.Stream, _
> ByVal myWebResponse As System.Net.WebResponse)
> If Not (myFileStream Is Nothing) Then
> Try
> myFileStream.Сlose()
> Catch 'He выполнять никаких действий.
> End Try
> End If
> If Not (myHTTPResponseStream Is Nothing) Then
> Try
> myHTTPResponseStream.Close()
> Catch 'He выполнять никаких действий.
> End Try
> End If
> If Not (myWebResponse Is Nothing) Then
> Try
> myWebResponse.Close()
> Catch 'He выполнять никаких действий.
> End Try
>End If
>End Sub