Question

vb 通过复制文件达到新建access数据库问题

我是新手做毕业设计 麻烦大神指点下啊
Private Sub new_Click()
On Error GoTo Cancel
Dim FileName As String
Dim FileSystemObject As Object
CommonDialog1.Filter = "microsoft access 数据库(*.mdb)|*.mdb"
CommonDialog1.ShowOpen
Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
FileSystemObject.CopyFile "C:\Users\admin\Desktop\tycs.mdb", " & CommonDialog1.FileName "
Cancel:
End Sub

copyfile那句好像有问题 希望复制到commondialog的路径下并且保存文件名为commondialog中输入的文件名格式为.mdb(ACCESS).上面那句写完保存格式为

只是新建的文件 很有问题 不知道哪里出错了，，麻烦大神指点下。

Answer 1

用双引号就定义了那个是字串了
FileSystemObject.CopyFile "C:\Users\admin\Desktop\tycs.mdb", CommonDialog1.FileName