access 日付名でバックアップ

質問

accessでファイルをコピーして日付の名前をつけて保存したいのですがうまくいきません。
------------------------------------------------------
Dim objFSO As FileSystemObject
Dim str元ファイル As String
Dim str新ファイル As String

Set objFSO = CreateObject("Scripting.FileSystemObject")
str元ファイル = "C:\sample.mdb"
str新ファイル = "C:\format(date(),"yymmdd").mdb"

objFSO.copyFile str元ファイル, str新ファイル, True
Set objFSO = Nothing
-------------------------------------------------------
どうも新ファイル名の指定の仕方が悪いようですがどこを直していいかわかりません。
どなたか教えてください。

回答No.1

bonaron · ベストアンサー

> str新ファイル = "C:\format(date(),"yymmdd").mdb"
　str新ファイル = "C:\" & Format(Date(),"yymmdd") & ".mdb"
ですね。

お礼

どうもありがとうございました。無事解決です(^^♪