'capturar excepciones Catch pollo As Exception 'pasar por alto la excepción si la causa es no poder borrar archivos por estar en uso ' (excepción System.IO.IOException o System.UnauthorizedAccessException) Dim sTipo1, sTipo2 As String sTipo1 = "System.IO.IOException" sTipo2 = "System.UnauthorizedAccessException" If Not pollo.GetType.ToString = sTipo1 And Not pollo.GetType.ToString = sTipo2 Then MessageBox.Show(pollo.Message, "Aviso del programa", MessageBoxButtons.OK) Application.Exit() End If End Try