こんにちは
お世話になっております

環境　ＯＳ：Ｗ２０００　ＶＢ６．０　ＳＰ５です

処理したい事は、モジュール終了後にバックアップとしてファイルをコピーしたいのですが
そのファイル名に日付、時間を付加させたファイル名を１月分くらい保存したいのです。
例）test20040326140030．mdb

コピー対象ファイルはアクセスMDBです。
下記のコードで、処理するとパスが見つかりません　と表示され正常に処理されません
何方かご教授のほど宜しくお願いいたします。

　
Dim Fs     As New FileSystemObject
Dim FsFile As File
Dim aaa As String
aaa = Now
Set FsFile = Fso.GetFile("c:\test\data.mdb")
FsFile.Copy ("c:\test\data " & aaa & ".mdb")
Set FsoFile = Nothing

        

下記の箇所を次のように変更すると動くと思います。

> aaa = Now

aaa = Format(Now, "yyyymmddhhmmss")

Nowで日時を受け取るとファイル名称
で使用できない文字が入る為だと思います。

正常に処理できました。
ありがとうございました。