ﾃｷｽﾄﾌｧｲﾙの一括処理について相談です｡大量のﾃｷｽﾄﾌｧｲﾙがあります｡一括で､ﾌｧｲﾙ名を本文の一行目に挿入したいです｡どういった方法が考えられますか？…

ﾃｷｽﾄﾌｧｲﾙの一括処理について相談です｡大量のﾃｷｽﾄﾌｧｲﾙがあります｡一括で､ﾌｧｲﾙ名を本文の一行目に挿入したいです｡どういった方法が考えられますか？

※自分で調べたところｿﾌﾄが無さそうなので､vbaやvbsでやるのかなとも思っています｡その場合､ｻﾝﾌﾟﾙﾌﾟﾛｸﾞﾗﾑを教えて頂けると嬉しいです｡

以下の内容を"addTitle.vbs"という名前で保存して､目的のﾌｧｲﾙがあるﾌｫﾙﾀﾞでﾀﾞﾌﾞﾙｸﾘｯｸすると､同じﾌｫﾙﾀﾞにある各ﾌｧｲﾙについてﾌｧｲﾙ名を本文の一行目に挿入します｡
ShiftJISﾃｷｽﾄ以外のﾌｧｲﾙを処理すると､ﾌｧｲﾙが破壊されますので予めﾊﾞｯｸｱｯﾌﾟを取るなどして使用することをお勧めします｡

If MsgBox("ready?", vbYesNo) = vbNo Then
WScript.Quit()
End If

Const FILE_WRITE = 2

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(".")

For Each file In folder.Files
If file.Name <> "addTitle.vbs" Then
Set ts = fso.OpenTextFile(file.Name)
text = ts.ReadAll()
ts.Close

Set ts = fso.OpenTextFile(file.Name, FILE_WRITE)
ts.WriteLine(file.Name)
ts.Write(text)
ts.Close
End If
Next

WScript.Echo("end")