我是新手做毕业设计 麻烦大神指点下啊
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).上面那句写完保存格式为
只是新建的文件 很有问题 不知道哪里出错了,,麻烦大神指点下。