vb代码：删除过期文件

zhangjih

vb代码实现获取文件创建时间，并跟踪规则删除指定过期的文件。
分享一段在我一个项目里面用到的代码
新建一个form，添加一个command按钮，添加以下代码

1. 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
   

复制代码