【发布时间】:2013-02-26 05:16:58
【问题描述】:
我正在尝试在 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
我得到了这个错误:
找不到路径
可能的问题是什么?
【问题讨论】:
-
将您的目录和文件名存储在一个字符串中,使用 dir() 检查它们是否存在,并从您的 filecopy 调用中删除 app.path