Accessファイルのバックアップ保存について

質問

「バックアップ」という名前のコマンドボタンを押した時に、
現在編集している「AAA.mdb」というAccessファイルを同じ
フォルダに、「AAAバックアップ.mdb」というファイル名で
保存したいと考えています。
　なお、フォルダはその時その時で変わります。

　いろいろとインターネットで調べましたが、分かりません
でした。

　どうかご教示いただきますようお願いいたします。

回答No.2

NotFound404 · ベストアンサー

こんな風では。
Private Sub バックアップ_Click()
Dim oFS As Object
Dim dbName As String, dbFullName As String, dbExt As String
Set oFS = CreateObject("Scripting.FilesystemObject")
dbFullName = CurrentProject.FullName
dbName = oFS.getBasename(dbFullName)
dbExt = "." & oFS.GetExtensionName(dbFullName)

'既存のファイルがあっても確認なしに上書きされます。
oFS.copyfile dbFullName, _
CurrentProject.Path & "\" & dbName & "バックアップ" & dbExt
Set oFS = Nothing
End Sub

時間があれば
データベース自動バックアップ関数 (FSO)
http://www.moug.net/tech/acvba/0070012.html
Windows7 64bit & Access2010 32bit でも動作確認できましたのでご参考に。
但し変数宣言の
Dim objFile As file は、Dim objFile As Object に。
※次回からはAccessのバージョンを明記のこと。

お礼

NotFound404さん、大変ごていねいにありがとうございます。
遅れましたが、Accessのバージョンは2003です。
試したところ、うまくいきました。

今後とも、よろしくお願いします。

回答No.1

panacon

メモ帳に、下記を書いて、目的のAccessを同じフォルダに「〇〇.bat」の拡張子で保存する。
copy "%CD%\AAA.mdb" "%CD%\AAAバックアップ.mdb"
%CD%は、現在のフォルダを意味します。
このバッチファイルをダブルクリックすれば言われたことができます。
Accessを別のフォルダに入れたら、バッチファイルも同じ場所にコピーして起動すればOKです。

補足

早速ご回答ありがとうございます。

　最初に伝え忘れたのですが、バックアップしたいファイルを
編集している状態（開いている状態）で、フォームにある
コマンドボタンを押した時、保存したいと考えています。