dim fso
set fso = server.createobject("scripting.filesystemobject")
Set Rs=server.CreateObject("Adodb.Recordset")
Rs.open "Select pic from cname order by cp_id asc",conn,1,1
IF Not (Rs.Eof And Rs.Bof) Then
rcd_count=rs.recordcount
For i=1 to rcd_count
If rs.eof then exit for
if fso.fileexists(server.mappath(rs(0))) then
fso.copyfile server.mappath(rs(0)),server.mappath("/pic1/"&rs(0)),true
else
response.write server.mappath(rs(0))&"文件不存在无法进行复制"
end if
Rs.movenext
Next
End IF
set fso = nothing
Rs.Close
Set rs=Nothing
conn.close
set conn=nothing
%>
功能实现：实现从固定文件夹下取出实际有用的文件，可以当做清理垃圾文件使用
建站知识搜索
网站数据库安全与维护
> Asp移动文件从一个文件夹移动到另外个文件夹插件代码
