Dim dir As New IO.DirectoryInfo(tmpPath)
        For Each d As IO.DirectoryInfo In dir.GetDirectories
            Try
                d.Delete(True)
            Catch ex As Exception
                Debug.WriteLine(ex.Message)
            End Try
        Next

Try
'...
Catch As AccessViolationException
 
End Try