Office中国论坛/Access中国论坛

标题: 如何用VBA代码复制正在被链接的文件 [打印本页]

作者: xryacc2 时间: 2009-10-8 19:31
标题: 如何用VBA代码复制正在被链接的文件
本帖最后由 xryacc2 于 2009-10-8 19:40 编辑

如何用VBA代码复制正在被链接的文件？比如：复制C:\abc.mde(正在使用中)到D:\ccc.mde(另外命名)，谢谢

作者: zyp 时间: 2009-10-8 20:01
dim Fs
Set Fs=CreateObject("Scripting.FileSystemObject")
Fs.CopyFile "C:\abc.mde","D:\ccc.mde"

作者: xryacc2 时间: 2009-10-8 20:22
不行啊，看了ACCESS的帮助，和那上面一样，是不是少了什么？谢谢。

作者: t小宝 时间: 2009-10-8 20:49
复制使用中的文件要使用API函数，如下面的一个函数。

Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
   (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
   ByVal bFailIfExists As Long) As Long

'说明：复制文件，与vb的filecopy命令相似
'返回值：Long，非零表示成功，零表示失败。会设置GetLastError
'参数表：
'参数             类型    说明
'lpExistingFileName String 源文件名
'lpNewFileName    String 目标文件名
'bFailIfExists    Long    如果设为TRUE（非零），那么一旦目标文件已经存在，则函数调用会失败。否则目标文件被改写

作者: xryacc2 时间: 2009-10-8 21:07
已搞定，谢谢各位。是要用到API

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)