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

filecopy为什么出现拒绝的权限的错误啊？？？高手帮忙啊！！！我用filecopy来复制文件，居然中断说拒绝的权限，不能复制代码是：If SourceFile <> TargetFile Then FileCopy SourceFile, TargetFile我调试了所有文件的名称和路径都正确，而且我用命令行下的copy 命令来操作就没有出现问题我的文件系统是fat32的 在xp下用vb6.0开发的！！！我的文件类型是access数据库文件！！！大家知道 拒绝的权限 是怎么回事码？？？复制access数据库，如果用filecopy，应该先关闭数据库，否则请考虑使用api来复制我的所有数据库文件都是关闭的！！怎么用api来复制阿1！楼上的能教一下吗？有人说用shell来调用copy 不知道行不行？？？我刚作了一个数据库程序也用拷贝的，就是数据库正打开着，没法拷贝！确认法方：弹出拒绝的权限的窗口时先不要关闭然后用资源管理器打开相应目录，你就会发现有一个数据库的副本在那里！解决方法：先关闭数据库！然后拷贝！我的程序是用adodc控件连接数据库的我想是不是在filecopy之前应该关闭adodc对数据库的连接阿？？？能不能提供一些思路和方法阿？？？谢谢大家！！！在数据库的备份和修复操作时，必须关闭掉当前数据库的连接！！具体代码：private filecopy_click sub()on error goto err ‘ 设置错误捕捉器 If conn.state=1 Then conn.close FileCopy SourceFile, TargetFileerr: msgbox"要备份的数据库路径名不存在！",vbokonly,"提示"end sub这段代码的核心就是这一句：If conn.state=1 Then conn.close 意思是先判断数据库的连接状态，如果打开就关闭，（.state=1 表示数据库已经打开！.state=0表示关闭！）然后在备份！！欢迎电话联系交流：134-80108861 丁敏http://www.BoLiLai.com 向全国诚邀代理商和合作伙伴加盟:可以是个人代理或企业代理。联系人：020-85625257邓先生柏利来科技检查一下目的目录的写入权限,或空间容量是否足够容下你的数据库!先试试在资源管理器那复制一下!http://www.BoLiLai.com 向全国诚邀代理商和合作伙伴加盟:可以是个人代理或企业代理。联系人：020-85625257邓先生柏利来科技这样试试'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 = &H40Public Const FOF_NOCONFIRMATION = &H10Public Const FOF_NOCONFIRMMKDIR = &H200Public Const FOF_SILENT = &H4