１週間分だけ保持するように変更。 Private Sub trushClear(backupPath As String, objFSO As Object) 'バックアップフォルダの存在チェック If Dir(backupPath, vbDirectory) = "" Then MkDir backupPath End If '指定したフォルダパスとファイル名をセット…