[Iska]

3DpacTe, Вам надо определиться, какая из двух дат — дата создания или дата последней модификации — подразумевается в Вашем понимании.

[3DpacTe]

Iska, Это будет дата создания

[Iska]

Это будет дата создания »

Так, тогда Вам forfiles не подойдёт.

На WSH:

Код:

Option Explicit

Dim strSourceFolder
Dim objFile


strSourceFolder = "E:\Песочница\0399"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FolderExists(strSourceFolder) Then
		For Each objFile In .GetFolder(strSourceFolder).Files
			If DateDiff("d", objFile.DateCreated, Now()) > 7 Then
				If objFile.Path <> WScript.ScriptFullName Then
					objFile.Delete True
				End If
			End If
		Next
	Else
		WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
		WScript.Quit 1
	End If
End With

WScript.Quit 0

[3DpacTe]

Извиняюсь, я чайник. Что с этим кодом теперь делать?

[Iska]

Сохраните в файл с расширением «.vbs», указав вместо «E:\Песочница\0399» путь к Вашей папке. Запустите на исполнение двойным щелчком. Если скрипт отработает корректно — создайте задание на его запуск, указав в параметрах ежедневное исполнение.

[3DpacTe]

Всё сработало, спасибо большое.

создайте задание на его запуск, указав в параметрах ежедневное исполнение. »

А как это сделать?
И еще такой вопрос на будущее, как будет выглядеть код если нужно чтобы он работал на дату последнего изменения?

[Iska]

А как это сделать? »

Зависит от Вашей ОС.

Как назначить задание в Microsoft Windows XP
Планирование задания

В качестве исполняемого файла укажите полный путь к скрипту.

[mwz]

А как это сделать? »

[3DpacTe]

Всем большое спасибо, но этот

И еще такой вопрос на будущее, как будет выглядеть код если нужно чтобы он работал на дату последнего изменения? »

вопрос еще актуален.