FileCopy的错误请教

lne 2003-09-16 10:23:42

运行到Filecopy报错 runtime error '70' permission denied

'复制到临时文件. SourceFile是源文件的路径 tempFile暂时文件路径
If Dir$(tempFile) > "" Then Kill tempFile
FileCopy SourceFile, tempFile '此处报错

...全文

250 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

benjamin8064 2003-09-17

打赏
举报

文件正在使用中。

zfl2k 2003-09-17

打赏
举报

filecopy 不能拷贝正在使用的文件,如已经打开的数据库.

可以用以下函数实现.
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

使用方法:
CopyFile SourceFile, tempFile , 0

yijiansong 2003-09-17

打赏
举报

目的文件只读！！

ffb 2003-09-17

打赏
举报

另外要注意：目的路径要给文件名

filecopy c:\1.exe d:\1.exe

而不能：

filecopy c:\1.exe d:\ －－错误！

ffb 2003-09-17

打赏
举报

目的文件只读！！

lne 2003-09-17

打赏
举报

我是管理员权限用的是win2000 就是老报错偶然不报奇怪啊～希望大家帮帮忙谢谢1

James0001 2003-09-17

打赏
举报

runtime error "70" permission denied

没有权限。你是管理员吗？

FLchengang 2003-09-16

打赏
举报

用下面的语句
Dim Fl As New FileSystemObject
fl.CopyFile SourceFile, tempFile
在调用CopyFile（）函数前，文件（SourceFile）不能使用
CopyFile（）函数不能拷贝正在使用的文件
fl.CopyFile 可以拷贝正在使用的文件

lne 2003-09-16

打赏
举报

但是主要问题不是这个问题啊是偶然报错 runtime error "70" permission denied啊
我都觉得奇怪啊都没有动过代码有时就不报错，有时就报这个错，闷啊

sxtdxdelphi 2003-09-16

打赏
举报

快揭贴吧

sxtdxdelphi 2003-09-16

打赏
举报

例如
If Dir("c:\002.txt",vbdirectory) <> "" Then
Kill "c:\002.txt"
end if
FileCopy ("c:\001.txt","c:\002.txt")

lne 2003-09-16

打赏
举报

源文件目标文件路径都没错啊改为了“<>”还是报原来的错
ps:请问怎么查看错误代码的意思？

sxtdxdelphi 2003-09-16

打赏
举报

If Dir(tempFile,vbdirectory) <> "" Then
Kill tempFile
end if
FileCopy SourceFile,tempFile '注意用的是英文状态下的","

注:vbdirectory 我记不得了
这样吧你输入到vbdir时按一下ctrl+J会自动补上的