filecopy为什么出现拒绝的权限的错误啊？？？高手帮忙啊！！！

Question

我用filecopy来复制文件，居然中断说拒绝的权限，不能复制
代码是：If SourceFile <> TargetFile Then FileCopy SourceFile, TargetFile
我调试了所有文件的名称和路径都正确，而且我用命令行下的copy 命令来操作就没有出现问题
我的文件系统是fat32的  在xp下用vb6.0开发的！！！
我的文件类型是access数据库文件！！！
大家知道 拒绝的权限  是怎么回事码？？？

Answer 1

复制access数据库，如果用filecopy，应该先关闭数据库，否则请考虑使用api来复制

Answer 2

我的所有数据库文件都是关闭的！！
怎么用api来复制阿1！楼上的能教一下吗？
有人说用shell来调用copy 不知道行不行？？？

Answer 3

我的程序是用adodc控件连接数据库的
我想是不是在filecopy之前应该关闭adodc对数据库的连接阿？？？
能不能提供一些思路和方法阿？？？
谢谢大家！！！

Answer 4

这样试试
'Form中
Public Sub CopyMdb(ByVal FromFile As String, ByVal ToFile As String)
    Dim SHFileOp As SHFILEOPSTRUCT  '拷贝例子:
    SHFileOp.wFunc = FO_COPY
    SHFileOp.pFrom = FromFile
    SHFileOp.pTo = ToFile
    SHFileOp.fFlags = FOF_NOCONFIRMMKDIR '不显示系统确认对话框
    Call SHFileOperation(SHFileOp)
End SubPrivate Sub Command1_Click()
  If SourceFile <> TargetFile Then Call CopyMdb(SourceFile, TargetFile)
End Sub'模块中
Public Type SHFILEOPSTRUCT
    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Long
    hNameMappings As Long
    lpszProgressTitle As String '只有在 FOF_SIMPLEPROGRESS 时用
End TypePublic Declare Function SHFileOperation Lib _
"shell32.dll" Alias "SHFileOperationA" (lpFileOp _
As SHFILEOPSTRUCT) As LongPublic Const FO_COPY = &H2Public Const FOF_ALLOWUNDO = &H40
Public Const FOF_NOCONFIRMATION = &H10
Public Const FOF_NOCONFIRMMKDIR = &H200
Public Const FOF_SILENT = &H4