路径未找到VB6

我想在VB6上做备份。路径未找到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 "Database had been successfully Saved on " & Me.CommonDialog1.FileName & ".sql" End If End Sub

我得到这个错误：

找不到路径

有什么可能出现的问题？

来源

2013-03-11 Beabi

将您的目录和文件名存储在一个字符串中，使用dir（）检查它们是否存在，然后从您的filecopy调用中移除app.path – Hrqls 2013-03-12 06:19:05

请务必阅读错误信息中的单词。问题非常清楚。

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

来源

2013-03-11 05:22:59

路径未找到VB6

回答

相关问题