Borrar un directorio en VB

Función simplita por si alguien la necesitara:

 Public Sub BorrarDirectorio(ByVal pathDestino As String)

        Try
            ' Primero recogemos la colección de archivos y carpetas
            Dim files() As String = System.IO.Directory.GetFiles(pathDestino)
            Dim dirs() As String = System.IO.Directory.GetDirectories(pathDestino)


            ' Si posee ficheros, los eliminamos
            For Each fil As String In files
                Dim dirInfo As New IO.DirectoryInfo(fil)
                System.IO.File.Delete(dirInfo.FullName)
            Next

            ' Si posee carpetas nos introducimos en ellas de manera recursiva
            For Each dir As String In dirs
                Dim dirInfo As New IO.DirectoryInfo(dir)
                BorrarDirectorio(dirInfo.FullName)
            Next

            ' Segun vuelva de la recursividad, si poseen carpetas, las eliminamos
            For Each dir As String In dirs
                Dim dirInfo As New IO.DirectoryInfo(dir)
                System.IO.Directory.Delete(dirInfo.FullName)
            Next
        Catch ex As Exception
            MessageBox.Show("Error borrando directorio (" + pathDestino + "), tiene permisos?")
        End Try
    End Sub

Posted in: Programación VS