VBS/WSH/JS - [решено] Удаление файлов меньше определенного размера

Ivan Bardeen · Отправлено: **17:56, 12-02-2011** | #2

Вот, VBS скрипт

Код:

DeathLine = 6
Folder = "c:\papka"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Folder)
Set colFiles = objFolder.Files  

For Each objFile in colFiles
	Datefile = objfile.DateCreated
	DiffDate = DateDiff("d",Datefile,Now)
	WScript.Echo DiffDate
		If DiffDate > DeathLine Then
		objfile.Delete(TRUE)
			Else If objfile.Size < 9216 Then
				objfile.Delete(TRUE)
				Else
				objFSO.CopyFile objFile.Path, "c:\papka2\"	
			End If	
		End If
Next

XXXp · Отправлено: **23:56, 12-02-2011** | #3

Спасибо!
Только два момента:
1. Почему-то выскакивает окно с цифрой 0 и единственной кнопкой Ок по поводу каждого файла, нельзя ли его не отображать, а то когда 200 файлов не очень удобно
2. Измените пожалуйста копировать на вырезать, я неправильно выразился.

Спасибо!

OSArev · Отправлено: **01:23, 13-02-2011** | #4

Цитата XXXp:

Только два момента:
1. Почему-то выскакивает окно с цифрой 0 и единственной кнопкой Ок по поводу каждого файла, нельзя ли его не отображать, а то когда 200 файлов не очень удобно
2. Измените пожалуйста копировать на вырезать, я неправильно выразился. »

Код:

DeathLine = 6
Folder = "c:\papka"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Folder)
Set colFiles = objFolder.Files  

For Each objFile in colFiles
	Datefile = objfile.DateCreated
	DiffDate = DateDiff("d",Datefile,Now)
	' WScript.Echo DiffDate
		If DiffDate > DeathLine Then
		objfile.Delete(TRUE)
			Else If objfile.Size < 9216 Then
				objfile.Delete(TRUE)
				Else
				objFSO.MoveFile objFile.Path, "c:\papka2\"	
			End If	
		End If
Next

XXXp · Отправлено: **02:06, 13-02-2011** | #5

Спасибо, то, что нужно!
Только теперь обнаружил, не удаляет файлы, созданные позднее 6 дней до текущей даты, т.е. переносит их как подходящие под условия...

Ivan Bardeen · Отправлено: **09:52, 14-02-2011** | #6

Цитата XXXp:

Только теперь обнаружил, не удаляет файлы, созданные позднее 6 дней до текущей даты, т.е. переносит их как подходящие под условия... »

хм... скрипт удаляет файл, если он старше 6 дней ИЛИ меньше 9Kb - остальные перемещает.
А что не так?
вот же ваше условие:

Цитата XXXp:

нужно чтобы скрипт удалял в ней все файлы меньшие по размеру чем 9кб. Плюс, если это возможно удалял все файлы в данной папке, независимо от размера, дата создания которых старше чем 6 дней от текущей даты. »

OSArev · Отправлено: **15:46, 14-02-2011** | #7

Цитата Ivan Bardeen:

А что не так?
вот же ваше условие: »

У меня тоже всё работает.

XXXp · Отправлено: **16:24, 14-02-2011** | #8

Странно, у меня почему-то не удаляет старше 6-ти дней, только меньше 9кб, сегодня ещё раз попробую вечером, спасибо

Ivan Bardeen · Отправлено: **16:50, 14-02-2011** | #9

XXXp,
покажите вывод скрипта, указав путь к файлу, который старше 6 дней и не удаляется

Код:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("путь_к_файлу")
Wscript.Echo "Date created: " & objFile.DateCreated & Vbcrlf & "Date last accessed: " & objFile.DateLastAccessed & vbcrlf & "Date last modified: " & objFile.DateLastModified

SendMessage · Отправлено: **19:42, 14-02-2011** | #10

XXXp, может Вы для проверки скопировали куда-нибудь свою "c:\papka" и там пытаетесь скриптом работать?
При этом действии у всех файлов дата создания изменится на нынешнюю (а дата модификации остается неизменной). И, естественно, скрипту нечего удалять по условию 6 дней.