UC知道高分+50：asp从Access数据库里读取并转移图片附件到指定目录
来源：百度知道 编辑：UC知道 时间：2024/06/18 07:41:08
由于图片附件中某些文件已经是多余的，数据库里不存在记录了，是垃圾文件。
现在要复制数据库里面存在图片附件，然后转移到新目录里面，以便排除垃圾文件。
conn.asp就不需要写了，已经有了。
数据库里相应的表名是abcd，abcd里面图片附件的字段名是1234，图片字段内容形式有几种：
第一种是图片有效如123456789.jpg，无效的是no.jpg或者0或者为空。所以要排除一下非有效图片结果。
清楚了么？谢谢大家代劳。
寒云同学的答案很满意，很专业，虽然有些变量定义没有严格定义。
我修改一下代码没问题了，只是代码运行时间有限制，劳烦再考虑一下脚步运行时间的问题，要上万上pic呢。
现在要复制数据库里面存在图片附件，然后转移到新目录里面，以便排除垃圾文件。
conn.asp就不需要写了，已经有了。
数据库里相应的表名是abcd，abcd里面图片附件的字段名是1234，图片字段内容形式有几种：
第一种是图片有效如123456789.jpg，无效的是no.jpg或者0或者为空。所以要排除一下非有效图片结果。
清楚了么？谢谢大家代劳。
寒云同学的答案很满意，很专业，虽然有些变量定义没有严格定义。
我修改一下代码没问题了，只是代码运行时间有限制，劳烦再考虑一下脚步运行时间的问题，要上万上pic呢。
<!--#include file="conn.asp"-->
<%
Function CopyFiles(CopyFrom,CopyTo)
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
IF fso.FileExists(CopyTo) then
CopyFiles = "目标文件 <b>" & CopyTo & "</b> 已存在，请先删除!"
Set fso =Nothing
Exit Function
End IF
IF not fso.FileExists(CopyFrom) Then
CopyFiles = "要复制的文件 <b>"&CopyFrom&"</b> 不存在!"
Set fso =Nothing
Exit Function
End If
fso.CopyFile CopyFrom,CopyTo
CopyFiles = "已经成功复制文件 <b>"&CopyFrom&"</b> 到 <b>"&CopyTo&"</b>"
Set fso = Nothing
End Function
FromPath = "OldFolder/" '假设原来的图片放在OldFolder文件夹
ToPath = "NewFolder/" '假设要把图片复制到NewFolder文件夹
'如果不存在NewFolde