ファイル名の文字数をまとめて表示させたい

質問

ファイル名の文字数をまとめて表示させる方法はありますでしょうか？
ファイルをまとめてドラッグ＆ドロップして表示させるようなのをイメージしていますが方法はありますでしょうか？

回答No.4

BLUEPIXY · ベストアンサー

こう言うときは、ＶＢＳを使いましょう。
適当な名前(ファイル名文字数.vbs)を付けて、
ファイルをアイコンにドロップすると、ファイル名とファイル名の文字数を表示します。
（どういう意図なのかわからないので勘違いしてたらすみませんです）
-----------------------------------------------------------------
'ドロップしたファイルの文字数を表示する
Dim fso, fileObj, file
Dim msg

Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set fileList =WScript.Arguments
msg=""
for each file in fileList
set fileObj = fso.GetFile(file)
msg = msg & fileObj.name & ":" & len(fileObj.name) & vbCrLf
next

WScript.Echo msg

お礼

みなさんありがとうございました。参考にします。