日期:2014-05-17  浏览次数:20766 次

循环删除图片的问题
数据库表A的a_pic字段记录了图片的名称,以下代码能循环删除图片的记录以及文件夹内相关的图片。
假设我的表A记录了1-10张图片,实际文件夹只有9张图片,当第7张图片不存在的时候,执行代码只是删除了1-6张图片,删除第7张时候显示文件不存在,删除命令停止了。
请问怎样可以在遇到不存在的图片,忽略过去,可以接着删除第8-10张图片

Source=   Server.MapPath(rs2( "a_pic "))  
Set   fs=CreateObject( "Scripting.FileSystemObject ")  
fs.DeleteFile   Source,Ture  
Set   fs=Nothing  
rs2.delete          
rs2.movenext      
wend



------解决方案--------------------
Source= Server.MapPath(rs2( "a_pic "))
Set fs=CreateObject( "Scripting.FileSystemObject ")
if fs.FileExists(source) then
fs.DeleteFile Source,Ture
end if
Set fs=Nothing
rs2.delete
rs2.movenext
wend