关于Access文件的复制与保存

Question

1、不用form，怎么直接在菜单中激活文件保存对话框(自己写代码也可以)。
2、复制access数据库文件时，出现如此错误"Run-time error '70' Permission denied"。什么原因，怎解决？
我的语句如下：FileCopy "C:\1.mdb" "\\hunter\backup\1.mdb"
不知道错在哪里。

Answer 1

1、不用form，怎么直接在菜单中激活文件保存对话框(自己写代码也可以)。你的菜单不在主窗体中吗？如果不想用控件，可以用 API:
Private Declare Function GetFileNameFromBrowse Lib "Shell32" Alias "#63" _
    (ByVal hWnd As Long, ByVal lpstrFile As String, _
    ByVal lpstrFileLengh As Long, ByVal lpstrInitDir As String, _
    ByVal lpstrDefExt As String, ByVal lpstrFilter As String, _
    ByVal lpstrTitle As String) As Long  参数：
    hWnd 当前窗体句柄。
    lpstrFile 获得选定文件的完整路径。
    lpstrFileLengh lpstrFile的长度。
    lpstrInitDir 当前的路径名。
    lpstrDefExt 缺省的文件扩展名。
    lpstrFilter 过滤器。
    lpstrTitle 对话框标题。2、复制access数据库文件时，出现如此错误"Run-time error '70' Permission denied"。什么原因，怎解决？
我的语句如下：FileCopy "C:\1.mdb" "\\hunter\backup\1.mdb"
不知道错在哪里。没有错。你用的是 NT 架构的 Win2k/XP 要求文件夹下的写权限。重新设置权限或用管理员身份登录。

Answer 2

to:of123
VB都忘得差不多了。
1、我的意思是不需要用户在界面上点击控件，点下菜单就弹出文件保存对话框。不知道有没有现成的控件可以满足我的要求。
2、写的权限我开放给everyone了，而且hunter是本机。好像将【FileCopy "C:\1.mdb" "\\hunter\backup\1.mdb"】改为【FileCopy "C:\1.mdb" "C:\2.mdb"】有同样的错误。

Answer 3

1.先把菜单设置好，然后在菜单的Click()事件里写：CommonDialog1.ShwoSave2.不知道原因

Answer 4

不好意思，是我自己没有明白CommonDialog怎么使用。我给分了。
不过还有一个问题就是，怎么将文件保存为指定后缀。比如我要将文件保存为access文件,
 .Filter = "Microsoft Access(*.mdb)"  这样设置时没起作用。
难道要用 .DefaultExe="Microsoft Access(*.mdb)"