処理済フォルダに移動するファイルを同じ名前があっても保存したい
処理するフォルダと処理済フォルダがあります。
処理し終わったExcelファイルを、処理済フォルダに移動します。その時、処理フォルダには、同じ名前のExcelファイルがある可能性があります。
それでも、処理済フォルダに移動できるようにしたいです。Excelファイルの題名は、(1)、(2)などを題名に追加でき操作はどのようにしたらよいでしょうか。
例外処理グループを利用して判断すれば良いとは思っているのですが、中身の処理方法が不明です。
ライブラリの「ファイル移動」を配置して、スクリプトを開き、
「objFileSys.MoveFile before, after」の行を下記のスクリプトに置き換えてみてください。
ファイルが存在した場合は、連番を振るようにしています。
Set objSrcFile = objFileSys.GetFile(before)
count = 1
name = objSrcFile.NameDo
If objFileSys.FileExists(after & name) Then
name = objFileSys.getBaseName(objSrcFile.Name) & " (" & CStr(count) & ")." & objFileSys.getExtensionName(objSrcFile.Name)
count = count + 1
Else
objFileSys.MoveFile before, after & name
Exit Do
End If
LoopSet objSrcFile = Nothing


無事解決されたということでよかったです。前回の投稿もそうですが、よろしければ本スレッドを閉じて解決積みとして頂けますでしょうか。

解決済みにするためには、【回答のコメントを閉じる】というボタンを押せばよいのでしょうか。

参考になった回答がございましたら「ベストアンサー」ボタンを押してください。参考になった回答がなければ上部の「回答の受付を閉じる」を押してください。

ありがとうございます。ベストアンサーとさせていただきます。
ありがとうございます。解決しました。同じがファイルでも連番がつくようになり、問題が解決しました。本当にありがとうございます。