1

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

そして、私はこのエラーを受け取ります:

パスが見つかりません


考えられる問題は何ですか？

4

1 に答える 1

8

エラーメッセージの単語を実際に読むことを学んでください。問題は非常に明確です。

のパスはApp.Path & "C:\Users\bea\Desktop\symptoms.sql"ありません。の場合、「C:\VB6AppsC:\Users\bea」を連結 (追加) しますApp.Pathが、これは明らかに有効な場所ではありません。C:\VB6Apps"C:\Users\bea" to it, you end up with

于 2013-03-11T05:22:59.713 に答える