Код:
Option Explicit
Dim strMask
Dim objLogQuery
Dim objFileSystemInputFormat
Dim strQuery
Dim objDictionary
Dim objFSO
strMask = "E:\Песочница\0102\*.zip"
Set objLogQuery = WScript.CreateObject("MSUtil.LogQuery")
Set objFileSystemInputFormat = WScript.CreateObject("MSUtil.LogQuery.FileSystemInputFormat")
Set objDictionary = WScript.CreateObject("Scripting.Dictionary")
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
With objFileSystemInputFormat
.preserveLastAccTime = True
.recurse = False
.useLocalTime = True
End With
strQuery = _
"SELECT TOP 10 LastWriteTime, Path " & _
"FROM '" & strMask & "' " & _
"WHERE Attributes NOT LIKE 'D________' " & _
"ORDER BY LastWriteTime DESC"
With objLogQuery.Execute(strQuery, objFileSystemInputFormat)
Do Until .atEnd()
With .getRecord()
objDictionary.Add .toNativeString(1), .toNativeString(1)
End With
.moveNext
Loop
.close
End With
strQuery = _
"SELECT Path " & _
"FROM '" & strMask & "' " & _
"WHERE Attributes NOT LIKE 'D________' " & _
"ORDER BY Path ASC"
With objLogQuery.Execute(strQuery, objFileSystemInputFormat)
Do Until .atEnd()
With .getRecord()
If Not objDictionary.Exists(.toNativeString(0)) Then
WScript.Echo .toNativeString(0)
'objFSO.DeleteFile .toNativeString(0), True
End If
End With
.moveNext
Loop
.close
End With
objDictionary.RemoveAll
Set objFSO = Nothing
Set objDictionary = Nothing
Set objFileSystemInputFormat = Nothing
Set objLogQuery = Nothing
WScript.Quit 0
Здесь:
Код:
strMask = "E:\Песочница\0102\*.zip"
— путь и маска к сетевому ресурсу;
Код:
With objFileSystemInputFormat
…
.recurse = False
— не обрабатывать вложенные папки.
По самому алгоритму:
Код:
strQuery = _
"SELECT TOP 10 LastWriteTime, Path " & _
"FROM '" & strMask & "' " & _
"WHERE Attributes NOT LIKE 'D________' " & _
"ORDER BY LastWriteTime DESC"
— выбрать поля: дату последней записи и путь (SELECT TOP 10 LastWriteTime, Path) к файлам (Attributes NOT LIKE 'D________') по указанной маске «E:\Песочница\0102\*.zip» (FROM
'" & strMask & "
'), отсортированным по дате последней записи в обратном порядке (ORDER BY LastWriteTime DESC). Из полученного списка отобрать только первые десять записей (TOP 10). Таким образом, мы получаем пути к файлам, которые нужно будет сохранить (не удалять).
Затем мы перебираем полученный список и заполняем им словарь «objDictionary».
Второй запрос:
Код:
strQuery = _
"SELECT Path " & _
"FROM '" & strMask & "' " & _
"WHERE Attributes NOT LIKE 'D________' " & _
"ORDER BY Path ASC"
— тут просто отбираем пути всех подходящих под заданную маску файлов. Полученный список путей файлов мы перебираем и удаляем все, которые не попали в первый запрос и не содержатся в словаре (If Not objDictionary.Exists(.toNativeString(0)) … objFSO.DeleteFile .toNativeString(0), True).
Вот, собственно, и весь алгоритм.
P.S. Для удаления файлов уберите комментарий при:
Код:
'objFSO.DeleteFile .toNativeString(0), True
P.P.S. Можно, конечно, не делать два запроса, а убрать «TOP 10» первом запросе и просто пропустить при переборе первые десять файлов, а все оставшиеся файлы полученного набора — удалять.
.
