数据库备份问题

Question

Private Sub mnuBackup_Click()
   CommonDialog1.FileName = ""
   CommonDialog1.Filter = "所有文件 (*.*)|*.*|数据库文件" & "(*.mdb)|*.mdb"
   CommonDialog1.FilterIndex = 2
   CommonDialog1.ShowSave
   If conn.State <> 0 Then conn.Close
   If CommonDialog1.FileName = Empty Then
      MsgBox "请输入文件名！", vbExclamation, "文件名不能为空"
      Exit Sub
   Else
      FileCopy App.Path & "\数据库\library.mdb", "\备份"
      MsgBox "备份完成！"
   End If
End Sub
请问运行后为什么备份文件夹中为空呢?

Answer 1

FileCopy App.Path & "\数据库\library.mdb", App.Path & "\备份\" & CommonDialog1.filename

Answer 2

FileCopy App.Path & "\数据库\library.mdb", "\备份\" & CommonDialog1.FileName

Answer 3

FileCopy App.Path & "\数据库\library.mdb", CommonDialog1.FileName