vb代码：删除过期文件
本帖最后由 wsms 于 2009-2-9 12:37 编辑
vb代码实现获取文件创建时间，并跟踪规则删除指定过期的文件。
分享一段在我一个项目里面用到的代码
新建一个form，添加一个command按钮，添加以下代码
Private Sub Command1_Click()
Dim文件名 As String
Dim创建时间 As String
Dim现在时间 As String
‘循环读取文件夹里面的文件
文件名 = Dir("c:\APPSOFT\", vbNormal)
Do While 文件名 <>""
Dim i As Integer
‘获取文件创建时间
创建时间 = CreateObject("scripting.filesystemobject").getfile("c:\APPSOFT\" & 文件名).DateCreated
创建时间 = Format(创建时间, "yyyy-mm-dd")
现在时间 = Format(Now, "yyyy-mm-dd")
‘删除一个星期前的文件，即7天前的文件
i = DateDiff("d", 创建时间, 现在时间)
If i > 7 Then
Kill "c:\APPSOFT\" & 文件名
End If
文件名 = Dir
Loop
End Sub
页:
[1]