删除过期文件的VBS代码

中国红啊

程序代码
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

俊海蕙

说得挺好，挺不错。













姐不上淘宝网内衣皇冠店只上淘宝网最好的内衣店中的淘宝网内衣店推荐