dim fo,filenamestr
set fo=ServerCreateobject("ScriptingFileSystemObject")
filenamestr=ServerMapPath(filename)
if foFileExists(filenamestr) then
foDeleteFile filenamestr
end if
set fo=nothing
END SUB
然后 找到文件路径
set rs = serverCreateObject("adodbrecordset")
sql = "select from datum_visa where uid='"&uid&"'order by id "
rsopen sql,conn,1,1
while not rseof
visa_m=trim(rs("visa_m"))
filename=trim(rs("filename"))
删除它
DelFile filename
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)