Excel-VBA删除18个月没有使用的文件

应用场景

整理文件夹，删除文件

知识要点

1：FSO对象的 DateLastAccessed属性，获取最后一次访问的时间。

2：dateif函数  判断两个日期间的时间间隔。

3：deletefile 方法删除文件。

Sub 删除18个月未使用的文件()

    Dim File As Object

    On Error Resume Next

    With CreateObject('Scripting.filesystemobject') '引用FSO对象

    For Each File In .GetFolder('D:').Files  '遍历D盘所有文件

        '如果文件的最后一次访问日期大于18个月，则删除文件

        If Evaluate('datedif(' & File.datelastaccessed * 1 & ',now(),' & '''Y''' & ')') >= 18 Then .DeleteFile File

    Next

    End With

End Sub