VB FileCopy 无法复制文件的问题

高手帮我看一下，为什么如下VB程序无法复制文件？
程序如下：
Sub save()
Dim FN As String
FN = Format(Date, "YYYY-MM-DD")
Dim File_name As String
Dim Save_name As String
File_name = App.Path & "\History\" & FN & ".mdb"
Save_name = App.Path & "\文件名.mdb"
Print File_name
Print Save_name
FileCopy Save_name, File_name
End Sub
谢谢！！

---

程序没问题，看看是不是路径或文件不存在，或你的VB有问题

---