Borrar carpetas directorio actual

Dim path As String = Directory.GetCurrentDirectory
        Dim di As New DirectoryInfo(path)

        'Borra carpetas
        For Each dir_ As DirectoryInfo In di.GetDirectories

            Try
                dir_.Delete(True)
            Catch ex As Exception
                MessageBox.Show(ex.ToString())
            End Try
        Next