vb6 - 找不到路径 VB6

Question

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

这是我的代码：

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

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”，这显然不是一个有效的位置。