如何从目录中删除旧文件，同时在Windows上保留最新文件

Dim fso, startFolder, OlderThanDate
Set fso = CreateObject("Scripting.FileSystemObject")

startFolder ="E:\temp"           ' folder to start deleting (subfolders will also be cleaned)

OlderThanDate = DateAdd("d", -07, Date)  ' 07 days (adjust as necessary)

DeleteOldFiles startFolder, OlderThanDate

Function DeleteOldFiles(folderName, BeforeDate)
    Dim folder, file, fileCollection, folderCollection, subFolder

    Set folder = fso.GetFolder(folderName)

    Set fileCollection = folder.Files

    For Each file In fileCollection
        If file.DateLastModified < BeforeDate Then
            ' fso.DeleteFile(file.Path)    # Modify this to delete after testing
            WScript.StdOut.WriteLine (file.Path)
        End If
    Next

    Set folderCollection = folder.SubFolders
    For Each subFolder In folderCollection
        DeleteOldFiles subFolder.Path, BeforeDate
    Next

End Function

cd \mylog\dir
mkdir archive
del /Q .\archive\*.log
move *.log .\archive

FORFILES -pc:\mydirectory -s -m*.* -d-14 -c"DEL @FILE"

#!perl
foreach my $file (</path/to/logs/*.log>) {
  next unless -M $file > 14;
  print"Deleting $file...
";
  # unlink $file or die"Failed to remove $file: $!";
}