2 sinat 26793923 sinat_26793923 于 2015.05.28 10:46 提问

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.Action=2
        Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
        FileSystemObject.CopyFile "C:\Users\admin\Desktop\tycs.mdb", " & CommonDialog1.FileName "        
Cancel:
End Sub

copyfile那句好像有问题 希望复制到commondialog的路径下并且保存文件名为commondialog中输入的文件名,格式为.mdb(ACCESS).上面那句写完保存格式为
图片说明
只是新建的文件 很有问题 不知道哪里出错了,,麻烦大神指点下。

1个回答

Tiger_Zhao
Tiger_Zhao   Rxr 2015.05.28 13:38
    FileSystemObject.CopyFile "C:\Users\admin\Desktop\tycs.mdb", CommonDialog1.FileName
Csdn user default icon
上传中...
上传图片
插入图片