如何用VBA代码复制正在被链接的文件

xryacc2

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

zyp

dim Fs
Set Fs=CreateObject("Scripting.FileSystemObject")
Fs.CopyFile "C:\abc.mde","D:\ccc.mde"

xryacc2

不行啊，看了ACCESS的帮助，和那上面一样，是不是少了什么？谢谢。

t小宝

复制使用中的文件要使用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

已搞定，谢谢各位。是要用到API