Разрешите поделиться:
Код:
On Error Resume Next
'путь к общей папке
CommonPath = "E:\MULTIMEDIA"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Common = FSO.GetFolder(CommonPath)
'удаляем файлы
Set CommonItems = Common.Files
For Each i in CommonItems
If DateDiff("D", i.DateCreated, Now) > 10 Then
i.delete
End If
Next
'удаляем папки
Set CommonItems = Common.SubFolders
For Each i in CommonItems
If DateDiff("D", i.DateCreated, Now) > 10 Then
i.delete
End If
Next
Цифра 10 в указанном примере отвечает за количество дней, в течении которых файл не будет удаляться, с даты его создания.
