エクスプローラー上のフォルダの文字列の長さ(フォント幅)で昇順にソートしたい

Question

前提・実現したいこと

windows標準エクスプローラーのフォルダのソートプログラムについての質問です。

• フォルダ名のフォント文字幅を取得
• 文字幅順に連番を降る

これを実現したいです。

手軽にVBSで書いてみたのですが思うようにできず、方法が思いつきません。

失敗した結果

　処理前

　処理後

本来やりたかったこと

(手動で名前を変えた)求める結果

こう見た目が綺麗に並べたいです。

最初に試したアルゴリズムは、

1. フォルダ名を取得
2. フォルダ名の文字列の長さを取得
3. 長さを先頭に降る
4. 名前順にソートし、上から改めて連番を降る

という処理です。それでは半角英数字と漢字とで文字幅が違うことが分かりました。

そのため上記のアルゴリズム2と3を次のように修正しました。

1. フォルダ名を取得
2. フォルダ名をUTF-8からShiftJISに文字種変換の後、Byte数を取得する
3. Byte数を先頭に降る
4. 名前順にソートし、上から改めて連番を降る

この結果も失敗で、ここまでやって私がやりたかったのは「文字列の長さのソート」ではなく「文字列のフォント幅のソート」だと気づきました。

ということで
** エクスプローラー標準のフォントは何か。 **
** 文字列毎にそのフォント幅を取得する方法はあるのか。 **

この2点を特にお訊きしたいです。

該当のソースコード

長さを先頭に降る箇所のコード

Function Proc(name)

	num = LenByte(name)'Lennghを取ったり、ユーザー関数を試したりした
	column_num =Right("0" & num, 2) 
	
	Proc = column_num & name
	
End Function 

Function MyLen(ByVal a)
    Dim c
    c = 0
    Dim i
    For i = 0 To Len(a) - 1
        Dim k
        k = Mid(a, i + 1, 1)
        If (Asc(k) And &HFF00) = 0 Then
            c = c + 1
        Else
            c = c + 2
        End If
    Next
    MyLen = c
End Function

Function LenByte(value)
    Dim i, str
    Dim bytes, code
    LenByte = 0

    If Trim(value) <> "" Then
        For i = 1 To Len(value)
            str = Mid(value, i, 1)
            bytes = 1
            code = AscW(str)
            If (code And &HFF00) <> 0 Then
                '半角カタカナ以外は、2バイト
                If code < &HFF61 or code > &HFF9F Then bytes = 2
            End If
            LenByte = LenByte + bytes
        Next
    End If

End Function

補足情報　

サクッと作れるだろうと思ってVBSでコーディングしましたが、実現できるならどの言語でもバッチファイルでも良いです。
どんな方法があるのでしょうか、お教えください

Answer 1

半角英数字と漢字とで文字幅が違うことが分かりました。

プロポーショナルフォントは、そもそも文字毎に幅が異なりますが。

エクスプローラー標準のフォントは何か。

OSでもシステム設定でも変わります。SystemParametersInfo でも使用して取得するしかないのでは。
C#ならSystemFontsクラスから引っ張れます。

文字列毎にそのフォント幅を取得する方法はあるのか。

DrawText で描画幅を計算してみては。まあ、そこまで苦労して幅でソートしたところで、環境でフォント変わったら幅変わる可能性ありますけど。

SystemParametersInfoA function (winuser.h)
DrawText function (winuser.h)

Answer 2

ExcelVBAでやってみた。

Function GetWidth(strText)
    With Sheets(1).Range("A1")
        .Font.Name = "Meiryo UI"
        .Font.Size = 12
        .Value = strText
        .EntireColumn.AutoFit
        GetWidth = .ColumnWidth
    End With
End Function

Answer 3

部分回答で申し訳ないですが
public System.Drawing.SizeF MeasureString (string? text, System.Drawing.Font font, int width);
というのを見つけました。

リンク内容

プロポーショナルフォントだった場合は、順番の数字をつけたら「カーニング」によって変わるかもしれないから、番号をつけたあと、再度しらべて変更がないか、とかもいるかも。（どうつけても並び順にならないケースもありえるか？）