Question

求高手解决一个asp中关于目录中文件的问题

问题：程序流程大致如下： 1、从某目录中得出所有文件数X（最好只列图片文件）
2、从1开始循环到X
3、取第1个文件名（含路径与不含路径都要）
4、从数据库中某一表的某一字段中搜索是否含有这个文件名，
5、如果没搜索到，删除这个图片文件

我这个程序的目的是：清理所有已失效的图片文件（如发贴是是带图片的，帖子删除后，没法同时删除图片）

Answer 1

set fs=server.CreateObject("scripting.filesystemobject")
set folder=fs.getfolder(server.MapPath("文件夹名"))
for each f in folder.files
response.Write(f.name&"-文件路径:"&f.path&"<br>")
if 在数据库中查询图片名不存在 then
fs.deletefile(f.path)
end if
next

set fs=nothing

追问

我改成这测试（先试试提示不提示）出错/网站无法显示该页面,f是什么呀
")
next
set fs=nothing
%>
您能具体吗？如：在网站根目下的uploadfile目中有20文件，我想对20文件一一提示

追答

里边的 f 是代表指定文件夹下的 文件 如 a.gif
f.name 就是文件名 a.gif
f.path 就是全路径 d:\web\uploadfile\a.gif

调用这个代码要你的空间支持 scripting.filesystemobject 就是支持文件读写
function object_install(strclassstring)
on error resume next
object_install=false
dim xtestobj
err=0
set xtestobj=server.createobject(strclassstring)
if err=0 then object_install=true
set xtestobj=nothing
err=0
end function

if object_install("scripting.filesystemobject")=true then
response.wrtie "支持"
else
response.write "不支持"
end if

Answer 2

有这个时间，不如直接改删帖程序，删除记录的同时也删除相关图片

追问

请出程序，试过，不行

追答

调用windows函数，直接操作文件系统