ACCESSのバックアップ

質問

ＡＣＣＥＳＳを閉じる際に自分自身をコピー、
リネームしてバックアップを取りたいのです。
　・BackUp20080108.mdb ←バックアップを取る際に日付を入れる。
　・３日分までバックアップをとり、４日目を取る時は
　　１日目のものを消す。
　　【１日目】BackUp20080105.mdb
　　【２日目】BackUp20080106.mdb
　　【３日目】BackUp20080107.mdb
　　【４日目】BackUp20080108.mdb　←これを作る際に【１日目】を削除

とりあえずコピー、削除は出来ましたが、
フォルダ内にあるファイルの識別をどうしてよいのかわかりません。
なにかサンプル、同じようなものを作った事のある方がおりましたら
ご指導お願い致します。

Dim fs As Object
'自身をコピー
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile CurrentProject.Path & "\" & CurrentProject.Name, _
CurrentProject.Path & "\" & "BackUp" & Format$(Date, "yyyymmdd") & ".mdb"

'ファイル削除
Set fs = CreateObject("Scripting.FileSystemObject")
fs.deleteFile CurrentProject.Path & "\" & CurrentProject.Path & "\" & "BackUp" & Format$(Date, "yyyymmdd") & ".mdb"

set fs=Nothing
End Sub

回答No.2

n-jun · ベストアンサー

Rドライブ直下に、aaa20080101.txt～aaa20080108.txtと言うファイルを作成し、
７日前から３日前までの日付がファイル名に含まれているテキストファイルを
削除するExcelVBAでテストした物です。

Sub　test()
　Dim　fso　As　Object,　src　As　Object
　Dim　Fil　As　String,　i　As　Integer
　Set　fso　=　CreateObject("Scripting.FileSystemObject")

　For　i　=　3　To　7
　　　　　Fil　=　"R:\aaa"　&　Format(Date　-　i,　"yyyymmdd")　&　".txt"
　　　　　If　fso.FileExists(Fil)　Then
　　　　　　　　Set　src　=　fso.GetFile(Fil)
　　　　　　　　src.Delete
　　　　　End　If
　Next
End　Sub
Accessで通用するかは自信ありませんが、参考になれば幸いです。

回答No.1

n-jun

AccessVBAはまったく経験ないのですが、
単純に３日前のファイルというのなら、
>Format$(Date, "yyyymmdd") & ".mdb"
Format$(Date - 3, "yyyymmdd") & ".mdb"
３日前を指定してあげればいいような。。。

違っていたらすいません。