0717デフォルトの名無しさん (ワッチョイ 03bd-EmoC)
2017/12/24(日) 22:44:17.96ID:4FfGU/eI0Set FSO = CreateObject("scripting.filesystemobject")
Dim folder As Object
Set folder = FSO.getfolder(ファイルパス)
Dim f As Object
For Each f In folder.Files
If f.Name Like "*" & Month(Date) & "*" Then
’ここでファイル名を翌月に変えてコピーを作成したい
End If
Next
ファイル名は「AAA〇〇月BBB」で統一(ABは文字列で〇〇は月を二桁表示)
抽出できた今月ファイルをコピーして名前の〇〇を翌月に変更したもの(翌月ファイル)を同フォルダ内に作成したいです
コピー元ファイル名を継承して一部だけ変更する良い方法が見つからなかったので教えてください