Office中国论坛/Access中国论坛

标题: [求助]如何按日期先后自动删除文件？ [打印本页]

作者: 好学 时间: 2006-10-8 08:37
标题: [求助]如何按日期先后自动删除文件？
由于我是用自动备份的,所以备份文件越来越多，我想将备份文件控制在5个，多余的自动删除，我的备份文件名已经是用日期备份的。请问如何可以保持备份文件夹内只有最近的5个备份文件？

作者: andymark 时间: 2006-10-8 18:58
循环读取小于前5天的文件,然后删除

作者: 好学 时间: 2006-10-8 23:53
关键是如何判断前5天的文件?

作者: andymark 时间: 2006-10-9 00:52

以下是引用好学在2006-10-8 15:53:00的发言：

关键是如何判断前5天的文件?

读取文件名(按日期格式备份)或文件建立的日期都可以实现

作者: 好学 时间: 2006-10-9 01:00

以下是引用andymark在2006-10-8 16:52:00的发言：

读取文件名(按日期格式备份)或文件建立的日期都可以实现

我是用日期格式备份的,如：2006-10-8.mdb

但前5天怎么定，就是按日期的前5个文件？[em06][em06][em06]

作者: andymark 时间: 2006-10-9 07:01
假设每天只备份一个文件:

[attach]20768[/attach]

作者: 好学 时间: 2006-10-13 02:20
andymark斑竹你现在只留下最近的一个文件,如果要保留前5天的文件是否将-5改成-9?

   For i = 1 To .foundfiles.Count
         StrFileName = Right(fs.foundfiles(i), Len(fs.foundfiles(i)) - Len(TemPath)) 'filename

         StrFileName = Left(StrFileName, Len(StrFileName) - 4)  '去掉filename中的.mdb

      If CDate(StrFileName) <= DateAdd("d", -9, Date) Then
      Debug.Print fs.foundfiles(i)
      Kill fs.foundfiles(i)
      End If

   Next i

还有"d"是什么?我看不明白.

谢谢!andymark斑竹
      [em17][em17][em17]

作者: andymark 时间: 2006-10-13 03:29

以下是引用好学在2006-10-12 18:20:00的发言：

andymark斑竹你现在只留下最近的一个文件,如果要保留前5天的文件是否将-5改成-9?

1. 上面语名就是删除前5天的备份

try:

If CDate(StrFileName) <DateAdd("d", -5, Date) Then

2.

DateAdd 函数

返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。

语法

DateAdd(interval, number, date)

DateAdd 函数语法中有下列命名参数：

部分

描述

interval

必要。字符串表达式，是所要加上去的时间间隔。

number

必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。

date

必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。

设置

interval 参数具有以下设定值：

设置

描述

yyyy

年

q

季

m

月

y

一年的日数

d

日

w

一周的日数

ww

周

h

时

n

分钟

s

秒

说明

可以使用 DateAdd 函数对日期加上或减去指定的时间间隔。例如，可以用 DateAdd 来计算距今天为三十天的日期；或者计算距现在为 45 分钟的时间。

为了对 date 加上“日”，可以使用“一年的日数” (“y”)，“日” (”d”) 或“一周的日数” (”w”)。

DateAdd 函数将不返回有效日期。在以下实例中将 1 月31 日加上一个月：

DateAdd(m, 1, 31-Jan-95)

复制代码

上例中，DateAdd 返回 1995 年 2 月 28 日，而不是 1995 年 2 月 31 日。如果 date 是 1996 年 1 月 31 日，则由于 1996 年是闰年，返回值是 1996 年 2 月 29 日。

如果计算的日期超前 100 年（减去的年度超过 date 中的年份），就会导致错误发生。

如果 number 不是一个 Long 值，则在计算时取最接近的整数值来计算。

注意 DateAdd 返回值的格式由 Control Panel设置决定，而不是由传递到date 参数的格式决定。

作者: 好学 时间: 2006-10-13 04:07
还有如果我要删除*.txt文件时,改成.FileName = "*.txt"

就说"类型不匹配",为什么呢?

作者: 好学 时间: 2006-10-14 08:41
andymark版主,还没睡觉吗?可以告诉我9楼的问题吗?

作者: andymark 时间: 2006-10-14 17:56
没问题呀

[attach]20898[/attach]

作者: fan0217 时间: 2006-10-15 01:22
也可在数据库中记录下备份的记录，这样很容易获取过期备份文件的名称，很容易删除的。

作者: 好学 时间: 2006-10-15 02:09
我发现有问题!如果软件有10天不用,再用的时候就会将所有备份文件删除掉了,所以单一用时间来判断可能不行!谢谢:andymark斑竹

[此贴子已经被作者于2006-10-14 18:12:29编辑过]

作者: andymark 时间: 2006-10-15 04:04
以上是假设是每天都备份

可以参考fan0217版主的方法,或者把备份文件名读取到数据库,然后按时间排序,才进行相关删除工作

作者: andymark 时间: 2006-10-15 04:30
供参考

[attach]20908[/attach]

作者: 好学 时间: 2006-10-15 08:40
问题终于解决了,谢谢andymark版主!谢谢fan0217版主!

[em17][em17][em17]

作者: sxb2007 时间: 2009-3-28 11:46
谢谢分享

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)