asp检索一个文件夹中的文件，按修改日期为条件移动到另一个文件夹

这个业务逻辑多少都有点奇怪了，阅读浏览次数增值在新闻详情页的控制器方法里setInc，这怎么还写进模型事件里了。如果非要用onAfterRead也可以，把新闻文章的内容单独分出来一个news_content表，然后把它和news做关联，然后给news_content表的onAfterRead事件做增值处理，这样点进新闻页内查询到文章内容时才会触发它。: 评 TP6模型事件-查询后onAfterRead不好用

文章标签更多

ThinkPHP (254)

Mysql (58)

DedeCms (33)

jQuery (67)

证件照 (1)

尺寸大小 (2)

背景颜色 (1)

setInc (4)

setDec (4)

onclick (5)

友情链接更多

超纯水设备

免费设计

海报设计

快递查询

DateLastModified DateCreated

打开边栏(ESC) 关闭边栏(ESC)

<% 
dim myfilename()
redim myfilename(0)
set fs=Server.CreateObject("Scripting.FileSystemObject")
sub showfile(thefolder)
	set fd=fs.getfolder(thefolder)
	for each myfile in fd.files
		i=ubound(myfilename)
		myfilename(i)=fd.path & "\" & myfile.name 
		redim Preserve myfilename(i+1)
	next
	for each myfolder in fd.SubFolders       '递归记录其它文件夹的文件
		call showfile(fd.path & "\" & myfolder.name)
	next	
end sub
thefolder="F:\ceshi\1"     '在此指定要搜索的文件夹绝对路径，要确定匿名用户有访问的权限，否则会出错
call showfile(thefolder)    '过程调用后，查到的文件名包括路径名保存在myfilename数组，
'共ubound(myfilename)个，下标分布在0至ubound(myfilename)-1；
'以下示例把找到文件显示出来
response.write("共找到" & ubound(myfilename) & "个文件<br>")
for i=0 to ubound(myfilename)-1
	Set f=fs.GetFile(myfilename(i))
	'd = #2018-06-25 00:00:00# '注意，时间比较大小的时候，用##号扩起来  '这种方式不太标准	
	'if f.DateLastModified > d then '这种方式不太标准
	
	d = "2018-06-25 00:00:00"
	if datediff("d",f.DateLastModified,d)>1 then
		response.Write(f.DateLastModified & "," & myfilename(i) & "<br>")
		file2 = replace(myfilename(i),"ceshi\1","ceshi\2")
		fs.MoveFile myfilename(i),file2    '用fs的MoveFile方法移动文件
	end if 
	set f=nothing
next  
set fs=nothing 
%>

f.DateCreated为创建时间

如果查找的文件夹过大，可能会提示错误：Active Server Pages 错误 'ASP 0113' 脚本超时

解决办法：在错误页面的asp开始区域写上Server.ScriptTimeOut=9999 即可。或可设置成稍小的参数。

如果文件夹还是太大，提示内存不足，这时候就要考虑用cmd命令来解决问题了。

怎么在CMD下移动文件夹http://taotaoit.com/article/details/371.html

赏