Comment faire pour que Total Commander affiche la taille réelle au lieu de la "taille sur le disque" dans la colonne "taille", tout en gardant la vue dynamique (x.x k/M/G) ?

Vous pouvez utiliser Plugin WinScriptAdv . Ceci est testé avec Total Commander 9.12 x64.

Pour créer une colonne personnalisée avec un affichage en taille arrondie de l'explorateur.

1. Téléchargez et installez le plugin
2. Localisez le répertoire du plugin et modifiez options.ini
3. Ajoutez à ActiveScripts "|SizeOnDisk" si ActiveScripts n'est pas vide, s'il est vide est vide, alors "ActiveScripts=SizeOnDisk".

Code :

[Script] 
ActiveScripts=MinutesAgo|CheckEncoding|Signature|SizeOnDisk

; List of scripts that will work together, returning their info in columns in one panel. 
; Separated by "|" - script1|script2 etc. One script can have multiple columns and display info with other
; scripts that also can be with multiple columns, all in one group of columns.
; You can add all scripts to ActiveScripts - it does not affect the performance (but takes more memory to 
; load and save script code), cause script runs only if you have the corresponding visible column in TC.  

[SizeOnDisk]
; File Size with explorer rounding in kB 
Script=SizeOnDisk.vbs
content=sizeondisk
extensions=*
FoldersPaths=0

4. Créez un fichier portant le nom SizeOnDisk.vbs dans le sous-dossier scripts et collez le code suivant dans ce fichier. Je ne suis pas un programmeur VBS, donc aucune garantie, peut-être que quelqu'un ayant des connaissances en VBS pourrait l'améliorer.

Code VBS :

'==============================================================================
'Script for WinScriptAdv content plugin
'   content  - Size on Disk (Like Explorer column)
'==============================================================================
Set FSO  = CreateObject("Scripting.FileSystemObject")
content  = Result(filename)
Set FSO  = Nothing

Function Result(pPath)
   If FSO.FileExists(pPath) Then

    Dim F : F = FSO.GetFile(pPath)
    Dim oShell, oFSO, oEnv, oNet
    Set oShell = CreateObject("Wscript.Shell")
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oEnv = oShell.Environment("Process")
    Set oNet = CreateObject("WScript.Network")
    Dim sTempFile, aText, i, aInfo
    sTempFile = oFSO.GetAbsolutePathName(oFSO.GetTempName)
    oShell.Run "%comspec% /c compact " & Chr(34) & F & Chr(34) & " > " & Chr(34) & sTempFile & Chr(34), 0, True
    aText = Split(oFSO.OpenTextFile(sTempFile,1).ReadAll,vbCrLf)
    If oFSO.FileExists(sTempFile) Then oFSO.DeleteFile sTempFile, True 
    For i = 0 To UBound(aText)
        If InStr(aText(i),oFSO.GetBaseName(F)) Then
            aInfo = Split(Replace(aText(i),"=",":"), ":")
            If IsNumeric(Trim(aInfo(1))) Then
                Result = Trim(aInfo(1))
            End If
        End If 
    Next

      set F  = Nothing
   End If
End Function

5. Ensuite, configurez les colonnes personnalisées

6. Ajout d'une nouvelle configuration de colonnes personnalisées

7. Ensuite, ajoutez une nouvelle colonne et placez dans le champ de la légende " sizeondisk " で、" Contenu des champs "Texte suivant [=winscriptsadv.sizeondisk] ".