'//按 ALT+F11 转到 vba 界面， '//新建一个模块 '//将以下代码 COPY 进去 '//将光标停在 Function RunTest() 这行 '//按 F5 即可运行 '//运行结束后到 c:\ 看结果 Public Const COPY_FILE_FAIL_IF_EXISTS = &H1    '//如果目标文件已存在即退出 Public Const COPY_FILE_RESTARTABLE = &H2       '//拷贝失败的时候可以重新开始 '// 此 API 在 WIN9X 下不能使用 Public Declare Function CopyFileEx Lib "kernel32.dll" Alias "CopyFileExA" ( _     ByVal lpExistingFileName As String, _     ByVal lpNewFileName As String, _     ByVal lpProgressRoutine As Long, _     lpData As Any, _     ByRef pbCancel As Long, _     ByVal dwCopyFlags As Long) As Long '=========================================================== ' 过程及函数名：  RunTest ' 版本号      ：  -- ' 说明        ：  本过程只用于演示如何用VBA+WINAPI 复制当前 '                 数据库到　c:\a.mdb ' 引用        ：  -- ' 输入参数    ：  -- ' 输出值      ：  -- ' 返回值      ：  -- ' 调用演示    ：  RunTest ' 最后修改日期：  2007-12-9 17:36:00 ' 示例地址    ：  http://access911.net/?kbid;72FABE1E1ADCECF3 ' 作者        ：  cg1 ' 网站        ：  http://access911.net ' 电子邮件    ：  access911@gmail.com ' 版权        ：  作者保留一切权力， '                 请在公布本代码时将本段说明一起公布，谢谢！ '=========================================================== Function RunTest()     Dim strFileName As String     strFileName = CurrentProject.FullName     CopyFileEx strFileName, "c:\a.mdb", 0, Null, False, COPY_FILE_RESTARTABLE End Function