使用vbs脚本定时删除N天前的文件

'WSH.POPUP("共删除文件" & filecount & "个、文件夹" & foldercount & "个")
end sub

sub del_file(folder)
    dim df        '标记
    For Each file In folder.files
        df=DateDiff("d",file.DateCreated,Now)
        If (df>1) Then '1天前的文件
            wstream.WriteLine(folder.path & "" & file.Name & vbTab & file.DateCreated)
            file.Delete()
            filecount=filecount+1
        End If
    Next
end Sub

''删除文件 同时删除subfolder
sub del_file_subFolder(folder)
    dim df        '标记
    For Each file In folder.files
        df=DateDiff("d",file.DateCreated,Now)
        If (df>1) Then
            wstream.WriteLine(folder.path & "" & file.Name & vbTab & file.DateCreated)
            file.Delete()
            filecount=filecount+1
        End If
    Next
    '递归调用del_file函数，实现子目录文件的遍历删除
    If (0 < Folder.SubFolders.Count ) then
        For Each loopfolder in folder.SubFolders
        del_file_subFolder loopfolder
        Next
    End If
end sub

sub del_folderFunc(folder)
    dim loopsub
    dim tmp
    if 0=folder.subfolders.Count Then    '判断其下是否还有子文件夹，若无
        if 0=folder.files.Count then    '如果其下还有文件则退出（符合条件的文件上一步已删掉了）
            if Ucase(folder.path)<>Ucase(dopath) then    '判断是否为根目录，是则退出，不是则删除
                wstream.WriteLine(folder.path & vbTab & folder.DateCreated)
                folder.delete
                foldercount=foldercount+1
                 '' del_folderFunc(mFSO.GetFolder(delFolderPath))        '删除该文件夹后从根目录重新检查，以检查其父目录是否该删除
            end if
        End if
    else
        For Each subdir In folder.subfolders    '还有子文件夹则轮循每一个子文件夹
            del_folderFunc(subdir)
        Next
    End if