路径未找到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
我得到这个错误:
找不到路径
有什么可能出现的问题?
答
请务必阅读错误信息中的单词。问题非常清楚。
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”,这显然不是有效的位置。
将您的目录和文件名存储在一个字符串中,使用dir()检查它们是否存在,然后从您的filecopy调用中移除app.path – Hrqls 2013-03-12 06:19:05