未找到路径VB6

Question

我正在尝试在VB6上做备份.

这是我的代码:

Private Sub Command1_Click()
Me.CommonDialog1.Filter ="*.sql"
Me.CommonDialog1.ShowSave
If Me.CommonDialog1.FileName <>""然后

FileCopy App.Path&"C:\ Users\Bea\Desktop\symptoms.sql ",Me.CommonDialog1.FileName&".sql"

MsgBox"数据库已成功保存在"&Me.CommonDialog1.FileName&".sql"End If End Sub

我收到这个错误:

找不到路径

什么是可能的问题？

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",这显然不是一个有效的位置.