Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Новый участник


Сообщения: 9
Благодарности: 2

Профиль | Отправить PM | Цитировать


Спасибо!
Выкладываю рабочий вариант для нужд ищущих
Удаляет файлы в папках folder1,folder2,folder3, которые не редактировались более 7 дней, весят более 1мб и имеют формат jpg или xls.
Код: Выделить весь код
Public objFSO
arrFolders  = Array( _
   "c:\folder1", _
   "c:\folder2", _
   "c:\folder3")
DeathLine = 7
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each strFolder In arrFolders
If objFSO.FolderExists(strFolder) Then
        Call ClrFolder(strFolder)
        WScript.Echo "Папка "&strFolder&" очищена."
		Else
        WScript.Echo "Не найден путь " & strFolder
End If
next
WScript.Quit 0
Function ClrFolder(strFolder)
Dim objFolder, objFile, objSubFolder
Set objFolder = objFSO.GetFolder(strFolder)
For Each objFile In objFolder.Files
	Datefile = objfile.DateLastModified
	DiffDate = DateDiff("d",Datefile,Now)
		if LCase(objFSO.GetExtensionName(objFile)) = "jpg" or _
		LCase(objFSO.GetExtensionName(objFile)) = "xls" then
		If DiffDate > DeathLine and _
		objFile.Size > 1048576 then objFile.Delete TRUE

For Each objSubFolder In objFolder.SubFolders
        Call ClrFolder(objSubFolder.Path)
Next
end if
next
end Function

Отправлено: 19:56, 09-07-2012 | #3