[Iska]

Примерно так:

Код:

Option Explicit

Dim strFolder
Dim lngSize

Dim objFolder


strFolder = "E:\Песочница\0331"
lngSize   = 50 * 2^10

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FolderExists(strFolder) Then
		For Each objFolder In .GetFolder(strFolder).SubFolders
			If objFolder.Size < lngSize Then
				WScript.Echo "[" & objFolder.Path & "] deleting..."
				'objFolder.Delete True
			Else
				WScript.Echo "[" & objFolder.Path & "]"
			End If
		Next
	Else
		WScript.Echo "Folder [" & strFolder & "] not found."
	End If
End With

WScript.Quit 0

Укажите свой размер в «lngSize» вместо выделенного. Для реального удаления раскомментируйте выделенную строку.

[DOCznet]

Большое спасибо, только можно ли еще добавить игнорирование ошибок прав доступа, что бы скрипт считал след. объекты?

[yurfed]

Iska, к делу не относится, просто интересно стало. Почему 10^2, а не 1024?

[Iska]

Почему 10^2, а не 1024? »

Запомнить проще. «1024» я, конечно, помню, а вот уже сколько занимают мегабайт и гигабайт — наизусть нет. Посему — так, степенями. Только не 10^2, 2^10 .

Большое спасибо, только можно ли еще добавить игнорирование ошибок прав доступа, что бы скрипт считал след. объекты? »

А какой в этом смысл — сравнение ведь тогда будет некорректно. Кстати, откуда там «ошибки прав доступа» возникают?

[DOCznet]

Цитата Iska:
А какой в этом смысл — сравнение ведь тогда будет некорректно. Кстати, откуда там «ошибки прав доступа» возникают? »

По задумке скрипт должен работать в C:\Users и доделывать дела кривой политики MS удаления неиспользуемых профилей старше N дней, которая после себя оставляет каждый раз разные папки в APPDATA у разных пользователей (большей их части), в которых либо файлов на пару килобайт, либо просто пустые каталоги. Соответственно если пользователю по разным стечениям обстоятельств доводится вновь работать на этой машине, то папка профиля создается вида USERNAME.DOMAINNAME, USERNAME.DOMAINNAME.001 etc. что сбивает некоторые привязки в рабочих программах и создает дополнительные трудозатраты. При том, что проблемы доступа возникают только с "живыми" профилями - игнорирование ошибок прав доступа еще и ускорит отработку.

P.S. не думал, что даже из под учетной записи ПК, которая выполняет логон сценарии, будет нечто подобное

[Iska]

Ясно. Не пробовали стороннее средство: Delprof2 - User Profile Deletion Tool • Helge Klein?

Тогда как-то так (не проверялось):

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

Код:

Option Explicit

Dim strFolder
Dim lngSize

Dim objFolder


strFolder = "E:\Песочница\0331"
lngSize   = 50 * 2^10

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FolderExists(strFolder) Then
		On Error Resume Next
		
		For Each objFolder In .GetFolder(strFolder).SubFolders
			If objFolder.Size < lngSize Then
				If Err.Number = 0 Then
					objFolder.Delete True
					
					If Err.Number = 0 Then
						WScript.Echo "[" & objFolder.Path & "] deleting..."
					Else
						Err.Clear
						WScript.Echo "Error while deleting [" & objFolder.Path & "]."
					End If
				Else
					Err.Clear
				End If
			Else
				'WScript.Echo "[" & objFolder.Path & "]"
			End If
		Next
		
		On Error Goto 0
	Else
		WScript.Echo "Folder [" & strFolder & "] not found."
	End If
End With

WScript.Quit 0

[DOCznet]

То что доктор прописал.

Спасибо большое!