未找到路径VB6

Question

我正在尝试在VB6上进行备份。

这是我的代码：

  

Private Sub Command1_Click（）
Me.CommonDialog1.Filter =“* .sql”   
      Me.CommonDialog1.ShowSave
如果Me.CommonDialog1.FileName＆lt;＆gt; “”然后

       FileCopy App.Path＆amp; “C：\ Users \ Bea \ Desktop \ symptoms.sql”，Me.CommonDialog1.FileName＆amp; “.sql”

      MsgBox“数据库已成功保存”＆amp; Me.CommonDialog1.FileName＆amp; “.SQL”       结束如果结束子

我收到此错误：

未找到路径

什么是可能的问题？

Answer 1

请学习实际阅读错误消息中的单词。问题非常明显。

App.Path & "C:\Users\bea\Desktop\symptoms.sql"处的路径不存在。如果App.Path为C:\VB6Apps，并且您连接（添加）"C:\Users\bea" to it, you end up with“C：\ VB6AppsC：\ Users \ bea”，这显然不是有效位置。