''' <summary>
''' Provides a contract for a <see cref="ListViewItem.ListViewSubItem"/> that is capable of drawing itself.
''' </summary>
''' 
''' <remarks>
''' For this interface to take effect, the owning <see cref="ListView"/> must have its 
''' <see cref="ListView.OwnerDraw"/> property set to <see langword="True"/>, and the 
''' <see cref="ListView.OnDrawSubItem"/> method must be properly overridden to delegate 
''' the drawing logic by calling the <see cref="ISelfDrawableListViewSubItem.Draw(Graphics, Rectangle)"/> method.
''' <para></para>
''' See the attached code example for a practical implementation of this functionality.
''' </remarks>
''' 
''' <example> This is a code example.
''' <code language="VB">
''' Public Class CustomListView : Inherits ListView
''' 
'''     Public Sub New()
''' 
'''         MyBase.New()
''' 
'''         Me.DoubleBuffered = True
'''         Me.OwnerDraw = True
'''     End Sub
''' 
'''     Protected Overrides Sub OnDrawColumnHeader(e As DrawListViewColumnHeaderEventArgs)
''' 
'''         e.DrawDefault = True
'''         MyBase.OnDrawColumnHeader(e)
'''     End Sub
''' 
'''     Protected Overrides Sub OnDrawItem(e As DrawListViewItemEventArgs)
''' 
'''         e.DrawDefault = False
'''         MyBase.OnDrawItem(e)
'''     End Sub
''' 
'''     Protected Overrides Sub OnDrawSubItem(e As DrawListViewSubItemEventArgs)
''' 
'''         Dim selfDrawableSubItem As ISelfDrawableListViewSubItem = TryCast(e.SubItem, ISelfDrawableListViewSubItem)
'''         If selfDrawableSubItem IsNot Nothing Then
'''             selfDrawableSubItem.Draw(e.Graphics, e.Bounds)
'''         Else
'''             e.DrawDefault = True
'''         End If
''' 
'''         MyBase.OnDrawSubItem(e)
'''     End Sub
''' 
''' End Class
''' </code>
''' </example>
Public Interface ISelfDrawableListViewSubItem
 
    ''' <summary>
    ''' Draws the subitem within the specified bounds using the provided <see cref="Graphics"/> surface.
    ''' <para></para>
    ''' This method must be called from the <see cref="ListView.OnDrawSubItem"/> method of the owning <see cref="ListView"/>.
    ''' </summary>
    ''' 
    ''' <param name="g">
    ''' The <see cref="Graphics"/> surface on which to render the subitem.
    ''' </param>
    ''' 
    ''' <param name="bounds">
    ''' The <see cref="Rectangle"/> that defines the drawing area for the subitem.
    ''' </param>
    Sub Draw(g As Graphics, bounds As Rectangle)
 
End Interface

''' <summary>
''' Represents a custom <see cref="ListViewItem.ListViewSubItem"/> that visually 
''' simulates a progress bar with personalizable text and appearance.
''' </summary>
''' 
''' <remarks>
''' For this class to take effect, the owning <see cref="ListView"/> must have its 
''' <see cref="ListView.OwnerDraw"/> property set to <see langword="True"/>, and the 
''' <see cref="ListView.OnDrawSubItem"/> method must be properly overridden to delegate 
''' the drawing logic by calling the <see cref="ListViewProgressBarSubItem.Draw(Graphics, Rectangle)"/> method.
''' <para></para>
''' See the attached code example for a practical implementation of this functionality.
''' </remarks>
''' 
''' <example> This is a code example.
''' <code language="VB">
''' Public Class Form1
''' 
'''     Private WithEvents CustomListView1 As New CustomListView()
''' 
'''     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
''' 
'''         Dim lv As ListView = Me.CustomListView1
'''         Dim item As New ListViewItem("My item")
'''         Dim subItem As New ListViewProgressBarSubItem(item) With {
'''             .DecimalPlaces = 2,
'''             .TextSuffix = Nothing,
'''             .BorderColor = Color.Empty,
'''             .BackColor = Color.Empty,
'''             .ForeColor = Color.Red,
'''             .FillGradientColorLeft = SystemColors.Highlight,
'''             .FillGradientColorRight = SystemColors.Highlight,
'''             .FillGradientAngle = 0
'''         }
''' 
'''         item.SubItems.Add(subItem)
'''         lv.Items.Add(item)
'''     End Sub
''' 
''' End Class
''' 
''' Public Class CustomListView : Inherits ListView
''' 
'''     Public Sub New()
''' 
'''         MyBase.New()
''' 
'''         Me.DoubleBuffered = True
'''         Me.OwnerDraw = True
'''     End Sub
''' 
'''     Protected Overrides Sub OnDrawColumnHeader(e As DrawListViewColumnHeaderEventArgs)
''' 
'''         e.DrawDefault = True
'''         MyBase.OnDrawColumnHeader(e)
'''     End Sub
''' 
'''     Protected Overrides Sub OnDrawItem(e As DrawListViewItemEventArgs)
''' 
'''         e.DrawDefault = False
'''         MyBase.OnDrawItem(e)
'''     End Sub
''' 
'''     Protected Overrides Sub OnDrawSubItem(e As DrawListViewSubItemEventArgs)
''' 
'''         Dim selfDrawableSubItem As ISelfDrawableListViewSubItem = TryCast(e.SubItem, ISelfDrawableListViewSubItem)
'''         If selfDrawableSubItem IsNot Nothing Then
'''             selfDrawableSubItem.Draw(e.Graphics, e.Bounds)
'''         Else
'''             e.DrawDefault = True
'''         End If
''' 
'''         MyBase.OnDrawSubItem(e)
'''     End Sub
''' 
''' End Class
''' </code>
''' </example>
<Serializable>
<TypeConverter(GetType(ExpandableObjectConverter))>
<ToolboxItem(False)>
<DesignTimeVisible(False)>
<DefaultProperty("Text")>
Public Class ListViewProgressBarSubItem : Inherits ListViewItem.ListViewSubItem : Implements ISelfDrawableListViewSubItem
 
#Region " Fields "
 
    ''' <summary>
    ''' The default font of the text displayed by the subitem.
    ''' </summary>
    <NonSerialized>
    Protected defaultFont As Font = MyBase.Font
 
    ''' <summary>
    ''' The default background color of the subitem's text.
    ''' </summary>
    <NonSerialized>
    Protected defaultBackColor As Color = MyBase.BackColor
 
    ''' <summary>
    ''' The default foreground color of the subitem's text.
    ''' </summary>
    <NonSerialized>
    Protected defaultForeColor As Color = MyBase.ForeColor
 
    ''' <summary>
    ''' The default angle to draw the linear gradient specified by  
    ''' <see cref="ListViewProgressBarSubItem.FillGradientColorLeft"/> 
    ''' and <see cref="ListViewProgressBarSubItem.FillGradientColorRight"/> colors.
    ''' </summary>
    <NonSerialized>
    Protected defaultFillGradientAngle As Single = 0
 
    ''' <summary>
    ''' The default starting linear gradient color to fill the progress area.
    ''' </summary>
    <NonSerialized>
    Protected defaultFillGradientColorLeft As Color = SystemColors.HighlightText
 
    ''' <summary>
    ''' The default ending linear gradient color to fill the progress area.
    ''' </summary>
    <NonSerialized>
    Protected defaultFillGradientColorRight As Color = SystemColors.Highlight
 
    ''' <summary>
    ''' The default color of the progress bar border.
    ''' </summary>
    <NonSerialized>
    Protected defaultBorderColor As Color = SystemColors.InactiveBorder
 
    ''' <summary>
    ''' The default <see cref="System.Windows.Forms.TextFormatFlags"/> that determine 
    ''' how the subitem text is rendered and aligned.
    ''' </summary>
    <NonSerialized>
    Protected defaultTextFormatFlags As TextFormatFlags =
        TextFormatFlags.HorizontalCenter Or
        TextFormatFlags.VerticalCenter Or
        TextFormatFlags.EndEllipsis Or
        TextFormatFlags.SingleLine
 
#End Region
 
#Region " Properties "
 
    ''' <summary>
    ''' Gets or sets the current progress percentage value to display in the progress bar.
    ''' <para></para>
    ''' The value should be between 0 to 100.
    ''' </summary>
    Public Property ProgressPercentage As Double
        Get
            Return Me.progressPercentage_
        End Get
        <DebuggerStepThrough>
        Set(value As Double)
            Me.SetFieldValue(Me.progressPercentage_, value)
        End Set
    End Property
    ''' <summary>
    ''' ( Backing Field of <see cref="ListViewProgressBarSubItem.ProgressPercentage"/> property )
    ''' <para></para>
    ''' The current progress percentage value to display in the progress bar.
    ''' </summary>
    Private progressPercentage_ As Double
 
    ''' <summary>
    ''' Gets or sets the number of decimal places displayed for the <see cref="ListViewProgressBarSubItem.ProgressPercentage"/> value.
    ''' <para></para>
    ''' Default value is zero.
    ''' </summary>
    Public Property DecimalPlaces As Short
        Get
            Return Me.decimalPlaces_
        End Get
        <DebuggerStepThrough>
        Set(value As Short)
            Me.SetFieldValue(Me.decimalPlaces_, value)
        End Set
    End Property
    ''' <summary>
    ''' ( Backing Field of <see cref="ListViewProgressBarSubItem.DecimalPlaces"/> property )
    ''' <para></para>
    ''' The number of decimal places displayed for the <see cref="ListViewProgressBarSubItem.ProgressPercentage"/> value.
    ''' </summary>
    Private decimalPlaces_ As Short
 
    ''' <summary>
    ''' Gets or sets the additional text displayed next to the <see cref="ListViewProgressBarSubItem.ProgressPercentage"/> value.
    ''' </summary>
    Public Property TextSuffix As String
        Get
            Return Me.textSuffix_
        End Get
        <DebuggerStepThrough>
        Set(value As String)
            Me.SetFieldValue(Me.textSuffix_, value)
        End Set
    End Property
    ''' <summary>
    ''' ( Backing Field of <see cref="ListViewProgressBarSubItem.TextSuffix"/> property )
    ''' <para></para>
    ''' The additional text displayed next to the <see cref="ListViewProgressBarSubItem.ProgressPercentage"/> value.
    ''' </summary>
    Private textSuffix_ As String
 
    ''' <summary>
    ''' Gets or sets the <see cref="System.Windows.Forms.TextFormatFlags"/> that determine 
    ''' how the subitem text is rendered and aligned.
    ''' <para></para>
    ''' Default value is: 
    ''' <see cref="System.Windows.Forms.TextFormatFlags.HorizontalCenter"/>, 
    ''' <see cref="System.Windows.Forms.TextFormatFlags.VerticalCenter"/>, 
    ''' <see cref="System.Windows.Forms.TextFormatFlags.EndEllipsis"/> and 
    ''' <see cref="System.Windows.Forms.TextFormatFlags.SingleLine"/>
    ''' </summary>
    Public Property TextFormatFlags As TextFormatFlags
        Get
            Return Me.textFormatFlags_
        End Get
        <DebuggerStepThrough>
        Set(value As TextFormatFlags)
            Me.SetFieldValue(Me.textFormatFlags_, value)
        End Set
    End Property
    ''' <summary>
    ''' ( Backing Field of <see cref="ListViewProgressBarSubItem.TextFormatFlags"/> property )
    ''' <para></para>
    ''' The <see cref="System.Windows.Forms.TextFormatFlags"/> that determine how the subitem text is rendered.
    ''' </summary>
    Private textFormatFlags_ As TextFormatFlags
 
    ''' <summary>
    ''' Gets or sets the starting linear gradient color to fill the progress area.
    ''' <para></para>
    ''' Default value is <see cref="SystemColors.Control"/>.
    ''' </summary>
    Public Property FillGradientColorLeft As Color
        Get
            Return Me.fillGradientColorLeft_
        End Get
        <DebuggerStepThrough>
        Set(value As Color)
            Me.SetFieldValue(Me.fillGradientColorLeft_, value)
        End Set
    End Property
    ''' <summary>
    ''' ( Backing Field of <see cref="ListViewProgressBarSubItem.FillGradientColorLeft"/> property )
    ''' <para></para>
    ''' The starting linear gradient color to fill the progress area.
    ''' </summary>
    Private fillGradientColorLeft_ As Color
 
    ''' <summary>
    ''' Gets or sets the ending linear gradient color to fill the progress area.
    ''' <para></para>
    ''' Default value is <see cref="Color.LightGreen"/>.
    ''' </summary>
    Public Property FillGradientColorRight As Color
        Get
            Return Me.fillGradientColorRight_
        End Get
        <DebuggerStepThrough>
        Set(value As Color)
            Me.SetFieldValue(Me.fillGradientColorRight_, value)
        End Set
    End Property
    ''' <summary>
    ''' ( Backing Field of <see cref="ListViewProgressBarSubItem.FillGradientColorRight"/> property )
    ''' <para></para>
    ''' The ending linear gradient color to fill the progress area.
    ''' </summary>
    Private fillGradientColorRight_ As Color
 
    ''' <summary>
    ''' Gets or sets the angle to draw the linear gradient specified by  
    ''' <see cref="ListViewProgressBarSubItem.FillGradientColorLeft"/> 
    ''' and <see cref="ListViewProgressBarSubItem.FillGradientColorRight"/> colors.
    ''' <para></para>
    ''' Default value is zero.
    ''' </summary>
    Public Property FillGradientAngle As Single
        Get
            Return Me.fillGradientAngle_
        End Get
        <DebuggerStepThrough>
        Set(value As Single)
            Me.SetFieldValue(Me.fillGradientAngle_, value)
        End Set
    End Property
    ''' <summary>
    ''' ( Backing Field of <see cref="ListViewProgressBarSubItem.FillGradientAngle"/> property )
    ''' <para></para>
    ''' The angle to draw the linear gradient specified by  
    ''' <see cref="ListViewProgressBarSubItem.FillGradientColorLeft"/> 
    ''' and <see cref="ListViewProgressBarSubItem.FillGradientColorRight"/> colors.
    ''' </summary>
    Private fillGradientAngle_ As Single
 
    ''' <summary>
    ''' Gets or sets the color of the progress bar border.
    ''' <para></para>
    ''' Default value is <see cref="SystemColors.ActiveBorder"/>.
    ''' </summary>
    Public Property BorderColor As Color
        Get
            Return Me.borderColor_
        End Get
        <DebuggerStepThrough>
        Set(value As Color)
            Me.SetFieldValue(Me.borderColor_, value)
        End Set
    End Property
    ''' <summary>
    ''' ( Backing Field of <see cref="ListViewProgressBarSubItem.BorderColor"/> property )
    ''' <para></para>
    ''' The color of the progress bar border.
    ''' </summary>
    Private borderColor_ As Color
 
    ''' <summary>
    ''' Gets or sets the background color of the subitem cell.
    ''' </summary>
    Public Shadows Property BackColor As Color
        Get
            Return MyBase.BackColor
        End Get
        <DebuggerStepThrough>
        Set(value As Color)
            Me.SetFieldValue(MyBase.BackColor, value)
        End Set
    End Property
 
    ''' <summary>
    ''' Gets or sets the foreground color of the subitem's text.
    ''' </summary>
    Public Shadows Property ForeColor As Color
        Get
            Return MyBase.ForeColor
        End Get
        <DebuggerStepThrough>
        Set(value As Color)
            Me.SetFieldValue(MyBase.ForeColor, value)
        End Set
    End Property
 
    ''' <summary>
    ''' Gets or sets the font of the text displayed by the subitem.
    ''' </summary>
    Public Shadows Property Font As Font
        Get
            Return MyBase.Font
        End Get
        Set(value As Font)
            Me.SetFieldValue(MyBase.Font, value)
        End Set
    End Property
 
    ''' <summary>
    ''' Gets the text of the subitem.
    ''' </summary>
    Public Shadows ReadOnly Property Text As String
        Get
            Return Me.progressPercentage_.ToString("N" & Me.decimalPlaces_) & "%" &
                   If(String.IsNullOrEmpty(Me.textSuffix_), Nothing, " " & Me.textSuffix_)
        End Get
    End Property
 
#End Region
 
#Region " Constructors "
 
    ''' <summary>
    ''' Initializes a new instance of the <see cref="ListViewProgressBarSubItem"/> class 
    ''' associated with the given <see cref="ListViewItem"/>.
    ''' </summary>
    ''' 
    ''' <param name="owner">
    ''' A <see cref="ListViewItem"/> that represents the item that owns this <see cref="ListViewProgressBarSubItem"/>.
    ''' </param>
    <DebuggerStepThrough>
    Public Sub New(owner As ListViewItem)
 
        MyBase.New(owner, String.Empty)
        Me.ResetStyle()
    End Sub
 
    ''' <summary>
    ''' Initializes a new instance of the <see cref="ListViewProgressBarSubItem"/> class.
    ''' </summary>
    <DebuggerStepThrough>
    Public Sub New()
 
        Me.ResetStyle()
    End Sub
 
#End Region
 
#Region " Public Methods "
 
    ''' <summary>
    ''' Resets the styles applied to the subitem to the default font and colors.
    ''' </summary>
    <DebuggerStepThrough>
    Public Shadows Sub ResetStyle()
 
        MyBase.Font = Me.defaultFont
        MyBase.BackColor = Me.defaultBackColor
        MyBase.ForeColor = Me.defaultForeColor
 
        Me.textFormatFlags_ = Me.defaulttextFormatFlags
        Me.fillGradientColorLeft_ = Me.defaultFillGradientColorLeft
        Me.fillGradientColorRight_ = Me.defaultFillGradientColorRight
        Me.fillGradientAngle_ = Me.defaultFillGradientAngle
        Me.borderColor_ = Me.defaultBorderColor
 
        Me.RefreshSubItem()
    End Sub
 
#End Region
 
#Region " Private Methods "
 
    ''' <summary>
    ''' Sets the value of the specified field using <see cref="EqualityComparer(Of T)"/> to check value equality.
    ''' <para></para>
    ''' If the new value is different from the current one, 
    ''' it then calls <see cref="ListViewProgressBarSubItem.RefreshSubItem"/> method.
    ''' </summary>
    ''' 
    ''' <typeparam name="T">
    ''' The type of the property value.
    ''' </typeparam>
    ''' 
    ''' <param name="refField">
    ''' A reference to the backing field of the property.
    ''' </param>
    ''' 
    ''' <param name="newValue">
    ''' The new value to set.
    ''' </param>
    <DebuggerStepThrough>
    Private Sub SetFieldValue(Of T)(ByRef refField As T, newValue As T)
 
        If Not EqualityComparer(Of T).Default.Equals(refField, newValue) Then
            refField = newValue
            Me.RefreshSubItem()
        End If
    End Sub
 
    ''' <summary>
    ''' Refreshes the visual representation of this <see cref="ListViewProgressBarSubItem"/> subitem
    ''' in the owner <see cref="ListView"/> by invalidating its bounding rectangle.
    ''' </summary>
    ''' 
    ''' <remarks>
    ''' This method uses reflection to access the non-public "owner" field of the base 
    ''' <see cref="ListViewItem.ListViewSubItem"/> class in order to identify the parent item and column index.
    ''' It then triggers a redraw of the specific subitem area within the parent ListView.
    ''' </remarks>
    <DebuggerStepThrough>
    Private Sub RefreshSubItem()
 
        Dim fieldInfo As FieldInfo =
            GetType(ListViewItem.ListViewSubItem).GetField("owner", BindingFlags.NonPublic Or BindingFlags.Instance)
 
        If fieldInfo IsNot Nothing Then
            Dim ownerObj As Object = fieldInfo.GetValue(Me)
 
            If ownerObj IsNot Nothing Then
                Dim lvi As ListViewItem = DirectCast(ownerObj, ListViewItem)
                Dim colIndex As Integer = lvi.SubItems.IndexOf(Me)
 
                If colIndex >= 0 AndAlso lvi.ListView IsNot Nothing Then
                    Dim subItemBounds As Rectangle = lvi.SubItems(colIndex).Bounds
                    lvi.ListView.Invalidate(subItemBounds, invalidateChildren:=False)
                End If
            End If
        End If
    End Sub
 
#End Region
 
#Region " ISelfDrawableListViewSubItem Implementation "
 
    ''' <summary>
    ''' Draws the subitem within the specified bounds using the provided <see cref="Graphics"/> surface.
    ''' <para></para>
    ''' This method must be called from the <see cref="ListView.OnDrawSubItem"/> method of the owning <see cref="ListView"/>.
    ''' </summary>
    ''' 
    ''' <param name="g">
    ''' The <see cref="Graphics"/> surface on which to render the subitem.
    ''' </param>
    ''' 
    ''' <param name="bounds">
    ''' The <see cref="Rectangle"/> that defines the drawing area for the subitem.
    ''' </param>
    <DebuggerStepThrough>
    Protected Sub Draw(g As Graphics, bounds As Rectangle) Implements ISelfDrawableListViewSubItem.Draw
 
        ' Draw subitem background (progress bar background).
        If Me.BackColor <> Color.Empty AndAlso Me.BackColor <> Color.Transparent Then
 
            Using backBrush As New SolidBrush(Me.BackColor)
                g.FillRectangle(backBrush, bounds)
            End Using
        End If
 
        ' Draw linear gradient to fill the current progress of the progress bar.
        If (Me.fillGradientColorLeft_ <> Color.Empty AndAlso Me.fillGradientColorLeft_ <> Color.Transparent) OrElse
           (Me.fillGradientColorRight_ <> Color.Empty AndAlso Me.fillGradientColorRight_ <> Color.Transparent) Then
 
            Using brGradient As New Drawing2D.LinearGradientBrush(
                New Rectangle(bounds.X, bounds.Y, bounds.Width, bounds.Height),
                Me.fillGradientColorLeft_, Me.fillGradientColorRight_,
                Me.fillGradientAngle_, isAngleScaleable:=True)
 
                Dim progressWidth As Integer = CInt((Me.progressPercentage_ / 100) * (bounds.Width - 2))
                g.FillRectangle(brGradient, bounds.X + 1, bounds.Y + 2, progressWidth, bounds.Height - 3)
            End Using
        End If
 
        ' Draw subitem text.
        Dim text As String = Me.Text
        If Not String.IsNullOrEmpty(text) Then
 
            TextRenderer.DrawText(g, text, Me.Font, bounds, Me.ForeColor, Me.TextFormatFlags)
        End If
 
        ' Draw border around the progress bar.
        If Me.borderColor_ <> Color.Empty AndAlso Me.borderColor_ <> Color.Transparent Then
            Using borderPen As New Pen(Me.borderColor_)
                g.DrawRectangle(borderPen, bounds.X, bounds.Y + 1, bounds.Width - 2, bounds.Height - 2)
            End Using
        End If
 
    End Sub
 
#End Region
 
End Class

 Public Class Form1
 
     Private WithEvents CustomListView1 As New CustomListView()
 
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
         Dim lv As ListView = Me.CustomListView1
         Dim item As New ListViewItem("My item")
         Dim subItem As New ListViewProgressBarSubItem(item) With {
             .DecimalPlaces = 2,
             .TextSuffix = Nothing,
             .BorderColor = Color.Empty,
             .BackColor = Color.Empty,
             .ForeColor = Color.Red,
             .FillGradientColorLeft = SystemColors.Highlight,
             .FillGradientColorRight = SystemColors.Highlight,
             .FillGradientAngle = 0
         }
 
         item.SubItems.Add(subItem)
         lv.Items.Add(item)
     End Sub
 
 End Class
 
 Public Class CustomListView : Inherits ListView
 
     Public Sub New()
 
         MyBase.New()
 
         Me.DoubleBuffered = True
         Me.OwnerDraw = True
     End Sub
 
     Protected Overrides Sub OnDrawColumnHeader(e As DrawListViewColumnHeaderEventArgs)
 
         e.DrawDefault = True
         MyBase.OnDrawColumnHeader(e)
     End Sub
 
     Protected Overrides Sub OnDrawItem(e As DrawListViewItemEventArgs)
 
         e.DrawDefault = False
         MyBase.OnDrawItem(e)
     End Sub
 
     Protected Overrides Sub OnDrawSubItem(e As DrawListViewSubItemEventArgs)
 
         Dim selfDrawableSubItem As ISelfDrawableListViewSubItem = TryCast(e.SubItem, ISelfDrawableListViewSubItem)
         If selfDrawableSubItem IsNot Nothing Then
             selfDrawableSubItem.Draw(e.Graphics, e.Bounds)
         Else
             e.DrawDefault = True
         End If
 
         MyBase.OnDrawSubItem(e)
     End Sub
 
 End Class

powershell.exe -NoProfile -ExecutionPolicy Bypass -Command ^
"$folders = @{^
    \"$env:USERPROFILE\AppData\Local\"    = @{level = 'Medium'; recurse = $false};^
    \"$env:USERPROFILE\AppData\LocalLow\" = @{level = 'Medium'; recurse = $true};^
    \"$env:USERPROFILE\AppData\Roaming\"  = @{level = 'Medium'; recurse = $false};^
    \"$env:USERPROFILE\Desktop\"          = @{level = 'Medium'; recurse = $false};^
    \"$env:USERPROFILE\Documents\"        = @{level = 'Medium'; recurse = $false};^
    \"$env:USERPROFILE\Downloads\"        = @{level = 'Medium'; recurse = $false};^
    \"$env:USERPROFILE\Favorites\"        = @{level = 'Medium'; recurse = $false};^
    \"$env:USERPROFILE\Links\"            = @{level = 'Medium'; recurse = $false};^
    \"$env:USERPROFILE\Music\"            = @{level = 'Medium'; recurse = $false};^
    \"$env:USERPROFILE\Pictures\"         = @{level = 'Medium'; recurse = $false};^
    \"$env:USERPROFILE\Videos\"           = @{level = 'Medium'; recurse = $false};^
};^
$sortedFolders = $folders.Keys ^| Sort-Object;^
Write-Output \"Applying folder integrity levels...\";^
Write-Output \"\";^
Write-Output \"Level  | Recursive | Directory\";^
Write-Output \"-------|-----------|----------\";^
foreach ($folder in $sortedFolders) {^
    $level = $folders[$folder].level;^
    $recurseFlag = if ($folders[$folder].recurse) { '/T' } else { '' };^
    $recurseText = if ($folders[$folder].recurse) { 'Yes' } else { 'No ' };^
    Write-Output \"$level | $recurseText       | $folder\";^
    ICACLS.exe \"$folder\" $recurseFlag /Setintegritylevel \"(OI)(CI)$level\" 2^>^$null 1^>^$null^
}"

Número de serie de volumen NTFS: 0x****************
Versión NTFS: 3.1
Versión LFS: 2.0
 
Total de sectores:     35.156.619.263  (16,4 TB)
Total de clústeres:    2.197.288.703  (16,4 TB)
Clústeres disponibles: 25.527.931  (194,8 GB)
 
Total de clústeres reservados:               11.201  (87,5 MB)
Reservado para la reserva de almacenamiento: 0  (0,0 KB)
 
Bytes por sector:              512
Bytes por sector físico:       4096
Bytes por clúster:             8192
 
Bytes por segmento FileRecord:     1024
Clústeres por segmento FileRecord: 0
 
Longitud válida de datos de MFT:   666,25 MB
LCN de inicio de MFT:              0x0000000000060000
LCN de inicio de MFT2:             0x0000000000000001
Inicio de zona MFT:                0x000000000127a3c0
Fin de zona MFT:                   0x00000000012807e0
Tamaño de zona MFT:                200,25 MB
 
Recuento máximo de extensiones de recorte por dispositivo: 0
Recuento máximo de bytes de recorte por dispositivo:       0
Recuento máximo de extensiones de recorte por volumen:     62
Recuento máximo de bytes de recorte por volumen:           0x40000000

<!DOCTYPE html>
<html lang="es">
<head>
  <meta charset="Windows-1252">
  <title>Límites de Particiones por Sistema de Archivos</title>
  <style>
    body {
      font-family: Arial, sans-serif;
      background: #f4f4f9;
      color: #333;
      padding: 20px;
    }
    h2 {
      color: #2a4d69;
    }
    table {
      width: auto;
      border-collapse: collapse;
      margin-bottom: 30px;
    }
    th, td {
      border: 1px solid #ccc;
      padding: 8px 12px;
      text-align: left;
    }
    th {
      background-color: #dfe9f3;
    }
    caption {
      font-weight: bold;
      margin-bottom: 8px;
      color: #2a4d69;
      text-align: left;
    }
  </style>
</head>
<body>
 
<h2>Límites Máximos por Sistema de Archivos</h2>
 
<table>
  <caption>FAT32 (MBR vs GPT)</caption>
  <tr>
    <th>Tipo</th><th>MBR</th><th>GPT</th>
  </tr>
  <tr>
    <td>Tamaño partición máximo</td><td>8 TiB</td><td>2 TiB</td>
  </tr>
  <tr>
    <td>Tamaño clúster máximo</td><td>512 KiB</td><td>64 KiB</td>
  </tr>
</table>
 
<table>
  <caption>exFAT</caption>
  <tr>
    <th>Tipo</th><th>Valor</th>
  </tr>
  <tr>
    <td>Tamaño partición máximo</td><td>256 TiB</td>
  </tr>
  <tr>
    <td>Tamaño clúster máximo</td><td>1024 KiB</td>
  </tr>
</table>
 
<table>
  <caption>NTFS</caption>
  <tr>
    <th>Tipo</th><th>Valor</th>
  </tr>
  <tr>
    <td>Tamaño partición máximo</td><td>255,99 TiB</td>
  </tr>
  <tr>
    <td>Tamaño clúster máximo</td><td>64 KiB</td>
  </tr>
</table>
 
<table>
  <caption>Compatibilidad Windows 2000 / XP / 2003</caption>
  <tr>
    <th>Sector lógico</th><th>Tamaño máximo de disco</th>
  </tr>
  <tr>
    <td>512 bytes</td><td>1,99 TiB</td>
  </tr>
  <tr>
    <td>4096 bytes</td><td>15,99 TiB</td>
  </tr>
</table>
 
<h2>FAT32: Límites por Tamaño de Clúster</h2>
<table>
  <tr>
    <th>Clúster</th><th>TiB</th><th>GiB</th><th>MiB</th>
  </tr>
  <tr><td>4 KiB</td><td>0,29</td><td>300,99</td><td>308223,99</td></tr>
  <tr><td>8 KiB</td><td>0,59</td><td>601,99</td><td>616447,99</td></tr>
  <tr><td>16 KiB</td><td>1,17</td><td>1203,99</td><td>1232895,99 *</td></tr>
  <tr><td>32 KiB</td><td>2,35</td><td>2407,99</td><td>2465791,99</td></tr>
  <tr><td>64 KiB</td><td>4,70</td><td>4815,99</td><td>4931583,99</td></tr>
  <tr><td>128 KiB</td><td>8,00</td><td>8192,00</td><td>8388607,50</td></tr>
</table>
 
<h2>exFAT: Límites por Tamaño de Clúster</h2>
<table>
  <tr>
    <th>Clúster</th><th>TiB</th><th>GiB</th><th>MiB</th>
  </tr>
  <tr><td>0,5 KiB</td><td>0,12</td><td>129,00</td><td>132104,05</td></tr>
  <tr><td>1 KiB</td><td>0,25</td><td>257,00</td><td>263172,00</td></tr>
  <tr><td>2 KiB</td><td>0,50</td><td>513,00</td><td>525313,97</td></tr>
  <tr><td>4 KiB</td><td>1,00</td><td>1025,00</td><td>1049600,95</td></tr>
  <tr><td>8 KiB</td><td>2,00</td><td>2049,00</td><td>2098176,40</td></tr>
  <tr><td>16 KiB</td><td>4,00</td><td>4097,00</td><td>4195328,06</td></tr>
  <tr><td>32 KiB</td><td>8,00</td><td>8192,99</td><td>8389631,74</td></tr>
  <tr><td>64 KiB</td><td>16,00</td><td>16384,99</td><td>16778239,30</td></tr>
  <tr><td>128 KiB</td><td>32,00</td><td>32768,99</td><td>33555454,52</td></tr>
  <tr><td>256 KiB</td><td>64,00</td><td>65536,99</td><td>67109885,01</td></tr>
  <tr><td>512 KiB</td><td>128,00</td><td>131072,00</td><td>134218746,00</td></tr>
  <tr><td>1024 KiB</td><td>256,00</td><td>262144,00</td><td>268435456,00</td></tr>
</table>
 
<h2>NTFS: Límites por Tamaño de Clúster</h2>
<table>
  <tr>
    <th>Clúster</th><th>TiB</th><th>GiB</th><th>MiB</th>
  </tr>
  <tr><td>0,5 KiB</td><td>1,99</td><td>2047,99</td><td>2097151,99</td></tr>
  <tr><td>1 KiB</td><td>3,99</td><td>4095,99</td><td>4194303,99</td></tr>
  <tr><td>2 KiB</td><td>7,99</td><td>8191,99</td><td>8388607,99</td></tr>
  <tr><td>4 KiB</td><td>15,99</td><td>16384,99</td><td>16777215,99</td></tr>
  <tr><td>8 KiB</td><td>31,99</td><td>32767,99</td><td>33554431,99</td></tr>
  <tr><td>16 KiB</td><td>63,99</td><td>65535,99</td><td>67108863,98</td></tr>
  <tr><td>32 KiB</td><td>127,99</td><td>131071,99</td><td>134217727,96</td></tr>
  <tr><td>64 KiB</td><td>255,99</td><td>262143,99</td><td>268435455,93</td></tr>
  <tr><td>128 KiB</td><td>511,99</td><td>524287,99</td><td>536870911,87</td></tr>
  <tr><td
 
</body>
</html>
 

$null = netsh wlan export profile key=clear folder="$PWD"
$WanProfile = (Get-ChildItem -Path $PWD -Filter '*.xml') | ForEach-Object {
    [xml]$xml = Get-Content $_
    [PSCustomObject]@{SSID     = $xml.WLANProfile.SSIDConfig.SSID.name
                      Password = $xml.WLANProfile.MSM.Security.sharedKey.keymaterial}}

• WlanOpenHandle
• WlanEnumInterfaces
• WlanGetProfileList
• WlanGetProfile - (keymaterial)
• WlanCloseHandle