文件删除问题！-----向高手请教！

lu460333142 发布于 2013-06-04 18:30， 578 次点击

由于软件每天运行都会生成一些文件，其文件名都是根据日期命名的，格式（如： system 2013-6-4.txt),如何能够删除一些月份比较久的文件，只要保留3个月的文件。该如何写代码？
请教一下会的朋友，在此谢过了！可以将代码发到我邮箱：luchengqu031@ 再次谢过！

4 回复

ttt96ttt2013-06-04 19:07

是不是连接数据库的，如果是`~~可以通过数据库里，先筛选出几月到几月是不要的数据，然后用delete * where *************** 这样就可以了吧。。。

风吹过b2013-06-05 10:10

首先，你先获取文件名列表。
可以使用 DIR 函数，也可以使用 filelist 控件。
取到文件名后，自己筛选。
如，先去掉后缀，然后去掉前导字符，剩下的部分就是日期类型数据了。
与当前日期做减法，相差多少天以上的，删除该文件。、

d1=mid(filelist1.list(i),8)
d1=left(d1,instr(1,d1,".")-1)

if date - d1>90 then
kill filelist1.list(i)
end if

lu4603331422013-06-09 11:04

回复 2楼 ttt96ttt

不是数据库！是指定路径里！谢过！

lu4603331422013-06-09 11:05

回复 3楼风吹过b

好的！我回去试试！谢了！