Страницы

VBS или скрипт удаления в папке всех файлов старше 7 дней.

On Error Resume Next
'Удаление в папке всех файлов старше 7 дней.
Set fso = CreateObject("Scripting.FileSystemObject")
'Выставляем количество дней, старше которых будет производится удаление файлов.
olddate = DateAdd("d", -7, date)
WScript.StdOut.WriteLine("Today is " & Date & vbCrLf)
WScript.StdOut.WriteLine("Deleting files unaccessed since " & olddate)
WScript.StdOut.WriteLine(" ")
WScript.stdout.writeline("Connecting to FileShare ")
'Указываем директорию в которой удаляем старые файлы.
Set folder = fso.GetFolder("d:\temp\archive") ' Get the folder
WScript.StdOut.Writeline("Getting a List of the Files")
Set fc = folder.Files
For Each f1 in fc If f1.DateLastModified < olddate Then WScript.StdOut.WriteLine("Removing: " & f1.DateLastModified & vbtab & f1.name)
fso.deletefile(f1)
End If
Next

Комментариев нет: