2013-03-11 175 views
1

我想在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

我得到這個錯誤:

找不到路徑


有什麼可能出現的問題?

+0

將您的目錄和文件名存儲在一個字符串中,使用dir()檢查它們是否存在,然後從您的filecopy調用中移除app.path – Hrqls 2013-03-12 06:19:05

回答

8

請務必閱讀錯誤信息中的單詞。問題非常清楚。

App.Path & "C:\Users\bea\Desktop\symptoms.sql"的路徑不存在。如果App.PathC:\VB6Apps,並且您連接(添加)"C:\Users\bea" to it, you end up with「C:\ VB6AppsC:\ Users \ bea」,這顯然不是有效的位置。