[Iska]

очень клевый скрипт »

Я бы не сказал.

а я бы очень хотел, что бы он удалял и папки созданные ранее указанного периода. »

…вместе со свежими файлами .

P.S. И почему «созданными»? В скрипте используется дата последней модификации «.DateLastModified» (что есть более правильно)?!

[Ua-life]

P.S. И почему «созданными»? В скрипте используется дата последней модификации «.DateLastModified» (что есть более правильно)?! »

возможно не правильно выразился, не очень владею могучим.
Сейчас удаляет файлы созданные 30 дней назад, но папки в которых находились файлы созданные 30 дней назад не удаляет, вот мне нужно, что бы и папки удалялись

Я же прошу не критиковать то, что написано в скрипте, автор не я, а всего лишь прошу помочь достичь желаемого результата ))

[Iska]

Сейчас удаляет файлы созданные 30 дней назад, но папки в которых находились файлы созданные 30 дней назад не удаляет, вот мне нужно, что бы и папки удалялись »

Не нужно. Удалять потребно лишь пустые папки.

Я же прошу не критиковать то, что написано в скрипте, автор не я, а всего лишь прошу помочь достичь желаемого результата )) »

Для очистки я много лет как пользую свой. В Вашем варианте может выглядеть примерно так (не проверялось):

читать дальше »

Код:

Option Explicit

Const intDays2Live   = 30
Const strPathToClear = "D:\BackUp"


With WScript.CreateObject("Scripting.FileSystemObject")
	If .FolderExists(strPathToClear) Then
		ClearSubFolders .GetFolder(strPathToClear)
	Else
		WScript.Quit 1
	End If
End With

WScript.Quit 0
'=============================================================================

'=============================================================================
Sub ClearSubFolders(objFolder)
	Dim objSubFolder
	Dim objFile
	
	
	For Each objSubFolder In objFolder.SubFolders
		ClearSubFolders objSubFolder
	Next
	
	For Each objFile In objFolder.Files
		If DateDiff("d", objFile.DateLastModified, Now()) > intDays2Live Then
			objFile.Delete(True)
		End If
	Next
	
	If (objFolder.Files.Count = 0) And (objFolder.SubFolders.Count = 0) Then
		If objFolder.Path = strPathToClear Then
			' Nothing to do
		Else
			objFolder.Delete True
		End If
	End If
End Sub
'=============================================================================

[Ua-life]

к сожалению пишет что мол objFSO переменная не определена

[Iska]

Подправил код в предыдущем посте.

[Ua-life]

к сожалению пишет что мол objFSO переменная не определена »

мастер, что тут сказать, все работает, задача решена, прибольшое спасибо за потраченное на меня время. Закрывайте тему.