[Денис_Пузатков@vk]

Да остаются.

[Iska]

В этих не удалённых папках остаются какие-либо папки/файлы? » Да остаются. »

Потому папки и не удаляются.

А эти оставшиеся файлы — они действительно не старше указанного Вами при вызове скрипта числа дней?

[Денис_Пузатков@vk]

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

[Iska]

нет не старше....посмотрел внимательней,одна папка пустая есть »

Значит, пинайте автора скрипта .

[DNBshon]

У меня непонятка со скриптом. Он должен удалять файлы в сети в папках с русскими именами и с пробелами, но не делает этого, выдает ошибку. Говорят раньше он работал. Писал его не я, да и особо в этом не разбираюсь.

Собственно сам скрипт:

Код:

'Производит поиск устаревших файлов и удаляет файлы старше 50 дней

set fso=Wscript.CreateObject("Scripting.FileSystemObject")
Set Dict = CreateObject("Scripting.Dictionary")
Dict.Add "01", "\\vek\cr\Документы\`Сканированые изображения`\Бухгалтерия"
Dict.Add "02", "\\vek\cr\Документы\`Сканированые изображения`\Технический отдел"
Dict.Add "03", "\\vek\cr\Документы\`Сканированые изображения`\Отдел кадров"
Dict.Add "04", "\\vek\cr\Документы\`Сканированые изображения`\Комната ТП"
Dict.Add "05", "\\vek\cr\Документы\`Сканированые изображения`\Отдел логистики"

Arr = Dict.Items

For i=0 To Dict.Count-1
	Set fs = CreateObject("ScriptCodingInfo.FileSystem")
	For Each f1 In fs.WalkFiles(Arr(i))
	d = f1.DateLastModified
	diff = DateDiff("d",d,Now)
		if diff > 50 Then
		fso.DeleteFile (Arr(i) & "\" & f1.name)
	end if
	Next
Next

[Iska]

но не делает этого, выдает ошибку. »

Какую ошибку? Нажмите «Ctrl-C» в окне с сообщением об ошибке, затем вставьте полученный текст из буфера обмена сюда, обрамив его тэгом «code».

[lipro122]

Код: For Each oI In cD Select Case objFolder.Name Case "Папка1", "Папка2", "Папка3" ' Ничего не делать Case Else DelOld oI.Path, iDays If oI.Size = 0 Then oI.Delete End Select Next »

Так ...
А как сделать так , чтоб в этих Case "Папка1", "Папка2", "Папка3" , данные удалялись ... а сами папки нет ?

[Iska]

Чтобы не удалялись пустые папки, закомментируйте строку

Код:

If oI.Size = 0 Then oI.Delete

Чтобы папки "Папка1", "Папка2", "Папка3" попадали в обработку — уберите само условие «Select Case …».

Добиться данным скриптом корректной работы, чтобы данные удалялись, а папки — частично удалялись, частично нет, не получится. Ибо автором был изначально выбран неверный путь ориентации на размер папки при удалении (правильный путь — проверка количества вложенных папок и файлов).

[lipro122]

для файлов:
Код:

Код:

intDays = Int(Wscript.arguments.Item(0))
strFldr = Wscript.arguments.Item(1)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDIR = objFSO.GetFolder(strFldr)
Set objCol = objDIR.Files

For Each objItem In objCol
   If DateDiff("d", objItem.DateLastModified, Now) > intDays Then objItem.Delete
Next

использование:

Код:

CScript MyScript.VBS 14 C:\TEST

Подскажите по поводу данного куска кода.
Особенно второй аргументы.
Меня интересует если в названии папки присутствует пробел.

например C:\Program Files\ он правильно примет аргументы ?
Или нужно будет указать "C:\Program Files\" ?

[Iska]

использование: Код: CScript MyScript.VBS 14 C:\TEST … Меня интересует если в названии папки присутствует пробел. »

Правильное использование:

Код:

cscript.exe //nologo "Путь\MyScript.VBS" "C:\TEST TEST TEST"

например C:\Program Files\ он правильно примет аргументы ? Или нужно будет указать "C:\Program Files\" ? »

Код:

cscript.exe //nologo "Путь\MyScript.VBS" "C:\Program Files"

P.S. Лучше сразу заиметь привычку заключать пути в качестве аргументов скриптов WSH в кавычки, независимо от наличия в них пробелов. Привыкнете — станете делать сие автоматически.