[Ivan Bardeen]

SendMessage,
Та же мысль возникла : )
Посему и попросил автора показать вывод скрипта

[XXXp]

Да да, все верно, я перед проверкой копирую файлы в c:\papka и у каждого файла соотв. два параметра: первый "дата создания", второй "дата изменения". Соответственно первый остается неизменным, можно ли именно его брать за основу, т.е. если дата создания файла более 6 дней от текущей - файл удалять..

[Ivan Bardeen]

XXXp,
Вывод скрипта покажете?
PS: Мой скрипт работает, можете его применять в "продуктиве"

[SendMessage]

Неизменной остается при копировании дата модификации.
Если это то, что Вам нужно, замените в скрипте строку

Код:

Datefile = objfile.DateCreated

на

Код:

Datefile = objfile.DateLastModified

[XXXp]

Вот! Теперь все работает для моего случая, видимо я просто неправильно выразился! Спасибо большое всем Вам за помощь!

[Leem111]

А как сделать, чтобы этот скрипт удалял файлы и в подпапках?

[Leem111]

Здравствуйте, уважаемые форумчане.
Хотел с помощью данного скрипта, сделать, чтобы удалялись файлы размером более 500 метров.
И чтобы файлы также искались и в под-папках. Помогите. Я в этом не особо шарю сильно не пинайте..
Вот что я наковырял:

Folder = "c:\1\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Folder)

If objfile.Size > 512000 Then
objfile.Delete(TRUE)
End If
End If
Next

[DmitriiV]

Leem111, используйте функцию, вызываемую рекурсивно. Пример:

Код:

Public objFSO
Folder = "c:\1\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(Folder) Then
        Call ClrFolder(Folder)
        WScript.Echo "Готово."
Else
        WScript.Echo "Не найден путь " & Folder
End If
WScript.Quit 0

Function ClrFolder(strFolder)
Dim objFolder, objFile, objSubFolder
Set objFolder = objFSO.GetFolder(strFolder)
For Each objFile In objFolder.Files
        If objFile.Size > 512000 Then objFile.Delete TRUE
Next
For Each objSubFolder In objFolder.SubFolders
        Call ClrFolder(objSubFolder.Path)
Next
End Function

[El Sanchez]

более 500 метров »

objFile.Size > 512000 »

DmitriiV, нужно 524288000

[DmitriiV]

нужно 524288000 »

Для сути решения это совершенно неважно. Поэтому было оставлено значение, использованное в заготовке автора темы.