为什么我用deletefile删除文件总是失败?
为什么我用deletefile删除文件总是失败?
下面是代码部分内容:
ID:=ListView1.Selected.Index;
//showmessage(listview1.Items[ID].Caption);
filename:=mulu+'\'+listview1.Items[ID].Caption;
showmessage(filename);
if FileExists(FileName) then
begin
if MessageDlg('你要删除'+' "'+ExtractFileName(FileName)+'" '+ '文件吗?', mtConfirmation, [mbYes, mbNo],0)=IDYes then
begin
if DeleteFile(FileName) then
messagedlg('删除文件成功!',mtinformation,[mbok],0)
else
messagedlg('删除文件失败!',mtinformation,[mbok],0);
end
end
else
messagedlg('文件不存在!',mtinformation,[mbok],0);
问题点数:25、回复次数:13Top
1 楼linzhisong(無聊)回复于 2003-06-04 12:00:38 得分 5
是不是文件被占用?
先关掉打开得文件!Top
2 楼vuen(阿土)回复于 2003-06-04 12:02:47 得分 4
其他程序有在用吧Top
3 楼CDSoftwareWj(95927)回复于 2003-06-04 12:08:04 得分 3
hehe^^ 只读的吧Top
4 楼crossbow(【以无形为形】)回复于 2003-06-04 12:12:08 得分 3
去掉只读属性!
或者文件正在被使用!Top
5 楼tcpc2003(tcpc)回复于 2003-06-04 12:28:15 得分 0
没有呀,文件不是只读,也没有使用呀Top
6 楼wly033(明)回复于 2003-06-04 12:44:15 得分 4
应该是函数返回值不对,我上次试了,明明文件被删除了,可还是返回失败,而且我有去掉只读属性再删除的。Top
7 楼tcpc2003(tcpc)回复于 2003-06-04 12:46:07 得分 0
可是我的文件的确没有删除呀?Top
8 楼tcpc2003(tcpc)回复于 2003-06-04 14:19:40 得分 0
upTop
9 楼tcpc2003(tcpc)回复于 2003-06-04 14:43:18 得分 0
upTop
10 楼linzhisong(無聊)回复于 2003-06-04 14:49:35 得分 3
怎么可能哪,
我都试了可以啊。
你看你得filename是不是对应上了!Top
11 楼vuen(阿土)回复于 2003-06-04 18:00:14 得分 3
文件名对不对啊!Top
12 楼crossbow(【以无形为形】)回复于 2003-06-10 09:46:35 得分 0
可能文件被独占打开或者只读
用SetFileAttributes修改属性Top
13 楼tlihui(阿南)回复于 2003-08-15 14:17:47 得分 0
我也遇到同样的问题,解决中......Top




