复制文件夹时报“无法复制文件:无法读源文件或磁盘”,为什么?怎么办?
zhuma 2003-10-05 10:23:17 我用了以下代码复制文件夹
//复制指定文件夹及其下所有文件
procedure TNSFForm.CopyFolder(srcFolder, destFolder: String);
var
p: _shfileopstruct;
begin
p.Wnd:=handle;
p.wFunc:=FO_Copy;
p.pFrom:=PChar(srcFolder); //源文件夹
p.pTo:=PChar(destFolder); //目的文件夹
p.fFlags:=FOF_ALLOWUNDO+FOF_NOCONFIRMATION;//标志表明允许恢复,无须确认
p.hNameMappings:=nil;
p.lpszProgressTitle:='正在删除文件夹';
p.fAnyOperationsAborted:=False;
shfileoperation(p);
end;
但我如果复制工作目录下的文件夹就会报
“无法复制文件:无法读源文件或磁盘”
怎么回事?如何解决?望赐教
同样的我删除工作目录下的文件夹时也会报
“无法删除文件:无法读源文件或磁盘”