YNY
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Dim fso, fldr
folderspec="D:\MyTest" ' - установка папки в которой будем чистить
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder(folderspec)
Set fc = fldr.SubFolders
Dim t
For Each f1 in fc
'msgbox f1.Path
if IsDate(f1.name)=true then
'- младше ли 2 дней
if (Day(Now) - Day(DateValue(f1.name))>2) then
t=t & f1.name & ", "
'- если да, то удаляем
rez=fso.DeleteFolder(f1.Path,force)
end if
end if
Next
'msgbox "Folder(s) " & t &" was deleted!"
|
