回 帖 发 新 帖 刷新版面

主题:删除同名文件代码,出错.

objfilesname=request.Form("checkbox1")
objfilesname=split(objfilesname,",")
response.write objfilename
set objfso=server.createobject("scripting.filesystemobject")
set objfolder=objfso.getfolder(server.mappath("../temp"))

for each objfilename in objfilesname
for each objfile in objfolder.files
if not  objfile.name<>objfilename then
objfile.delete 
exit for
end if
next
next

删除同名文件代码,但是传递两个文件名,只能删除第一个 第二个就删除不了 这是怎么回事啊.

回复列表 (共6个回复)

沙发

说明 循环只能正确执行第一次,第二次就出错了.这是啥问题啊.

板凳

如改动下:
for each objfilename in objfilesname
  for each objfile in objfolder.files
    if  objfile.name=objfilename then
      response.write "删除成功"&objfilename&"<BR>"
      exit for
      else
      response.write "删除失败"&objfilename&"<BR>"
    end if
  next
next
删除01.wav,01.txt
文件夹 只有两个文件:
提示:
删除成功01.wav
删除失败 01.txt
删除失败 01.txt

3 楼

郁闷了,到底要怎么解决啊。

4 楼

for each objfilename in objfilesname
for each objfile in objfolder.files
if not  objfile.name<>objfilename then
objfile.delete 
end if
next
next

这样试试

5 楼

不行啊 到底因该怎么写循环语句才不会出错啊。

高手高手  拜托帮忙下吧.

6 楼

经过长期努力 已解决 ..
这个错误 在高的手都找不出....
说出这个错误郁闷死一大堆人.

我来回复

您尚未登录,请登录后再回复。点此登录或注册