フォルダ内にある全ファイルのファイル名を一括で変更

あるフォルダ内にある全てのファイル名の最後の文字列にスペースを入れる一括処理をしたいのですが、Excelマクロ等どのように組み込んだらよいかご教示願います。

No.3 回答者： kigoshi 回答日時： 2023/12/05 08:42

どうしてもExcelマクロでというのなら、ファイル名の変更は

https://ronpeeeblog.com/change_filename/
を参照してください。

> 最後の文字列にスペースを入れる

これは拡張子の前にスペースを、という意味でしょうか。
ならば、こんな感じかな

Dim fName As String
Dim pd As Integer
pd = InStrRev(fName, ".")
fName = Left(fName, pd - 1) & " " & Right(fName, Len(fName) - pd + 1)
MsgBox (fName)

No.2 回答者： ggogooID 回答日時： 2023/12/04 14:54

FILENAMECHANGE

っていうファイル名を一括変換できるツールがあるよ。

20年ぐらい前に使ってたwww
自分は持ってるけど、、、、

No.1 回答者： リッチリッチ 回答日時： 2023/12/04 13:11

Excelじゃないといけないんですか？

リネームのソフトがたくさんありますけど。

https://forest.watch.impress.co.jp/library/softw …