Establezca el ancho de columna del Explorador de Windows en menos de 100 píxeles

Question

Quiero reducir aún más el ancho de la columna "Extensión de archivo":

Puedo hacer clic derecho > Más > Resaltar "Extensión de archivo" > pero si deseo cambiar "100" a menos, el Explorador de Windows no lo permite:

Answer 1

Aún no he actualizado a Win11, pero si las carpetas aún guardan sus vistas en la clave de registro: HKCU\Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\Bags

Entonces lo siguientePotencia Shellreducirá el ancho de la File Extensioncolumna a un ancho preestablecido ( $NewWidth) en todas las vistas guardadas que muestran la File Extensioncolumna.

Luego tiene la opción de configurar cualquiera de ellos como plantilla personalizada para sus asociados.FolderTypemediante el uso Apply to Folders.

$NewWidth           = 0x35
$Bags               = 'HKCU:\Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\Bags'
$ExtPropKey         = [PSCustomObject]@{
                          'FmtID' = [GUID]'e4f10a3c-49e6-405d-8288-a23bd4eeaa6c'
                          'PID'   = 100
                      }
$PropKeyAsBytes     = $ExtPropKey.FmtID.ToByteArray() + [BitConverter]::GetBytes($ExtPropKey.PID)
$Encoder            = [System.Text.Encoding]::GetEncoding(28591)
$RegEx              = [Regex]$Encoder.GetString( $PropKeyAsBytes )

gci $Bags -Recurse |
    ? PSChildName -like '{*}' |
    ? Property -contains  'ColInfo' |
ForEach-Object{
    $ColInfoAsText   = $Encoder.GetString(( $ColInfoAsBytes = $_.GetValue('ColInfo') ))

    If ( ( $ColumnPresent = $RegEx.Match( $ColInfoAsText ) ).Success )
    {        
        $WidthOffset                  = $ColumnPresent.Index + 0x14
        $ColInfoAsBytes[$WidthOffset] = $NewWidth
        $Splat = @{
            'Path'    = $_.PSPath
            'Name'    = 'ColInfo'
            'Value'   = $ColInfoAsBytes
        }
        Set-ItemProperty @Splat
    }
}