※自分で調べたところソフトが無さそうなので、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")
コメント(0件)