Access VBAでファイルコピー

Sub myCopyFSO()
Dim objFSO As Object
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
objFSO.copyFile “コピー元”, “コピー先”, True
Set objFSO = Nothing
End Sub
http://www.nurs.or.jp/~ppoy/access/access/acEt012.html