ファイル名のバイト数(文字数)によって処理を分ける方法

Question

フォルダAにある複数のファイルのうち、
ファイル名が140バイト(全角70文字)以上のファイルはフォルダBに、
140バイト未満のファイルはフォルダCに移動させるスクリプトを作成したいと
考えています。

ファイル名のバイト数(文字数)を抽出し、一定の長さ以上のファイルのみ
処理するような記述を教えてください。
ネットで検索してもあまり情報がありませんでした。

スクリプトはバッチ、パワーシェル、VBSどれでも構いません。
よろしくお願いします。

Comments

[sazi]

>ファイル名が140バイト(全角70文字)以上のファイル
半角70文字はどっちのフォルダですか

Answer 1

VBSです。

Option Explicit

Dim fs, folder, file

Set fs = CreateObject("Scripting.FileSystemObject")
Set folder = fs.GetFolder("a\")

For Each file in folder.Files
	If LenB(file.Name) >= 140 Then
		file.Move "b\"
	Else
		file.Move "c\"
	End If
Next

Set fs = Nothing