[rosalin]

Вот готовое решение, которое у меня выполняется через MS SMS 2003 для очистки каталогов временных папок на компьютерах пользователей. Переменной, отвечающей за время устаревания файла является PurgeTime. В данный момент удаляются все файлы, которые старше 14 дней »

У меня при запуске этого скрипта ничего не происходит
ОС win 2003

права Админ, скрипт создаю с расширением vbs , где можно посмотреть лог работы скрипта

[Iska]

где можно посмотреть лог работы скрипта »

Ищите файлы вида «PurgeTemp_<Дата>*.log» в «%SystemRoot%\Temp»

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

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

Точнее, произвожу очистку папки данным скриптом, в папке есть пара папок которые оттуда перенести нельзя,можно ли видоизменить скрипт таким образом,чтобы при срабатывании он их не трогал,заранее спасибо за ответ…

[Iska]

А можно »

Можно.

Болванка кода:

Код:

Select Case objFolder.Name
    Case "Папка1", "Папка2", "Папка3" 
        ' Ничего не делать
    Case Else
        ' Здесь обычное поведение для очистки из выбранного Вами скрипта
End Select

в данный скрипт »

Если внимательно посмотреть на тему, то станет понятно, что только Вам известно, какой из приведённых в ней скриптов Вы называете «данным».

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

Прошу прошения что не указал какой именно...Вот этот
On Error Resume Next
intDays = Int(Wscript.arguments.Item(0))
strFldr = Wscript.arguments.Item(1)

Set objFSO = CreateObject("Scripting.FileSystemObject")
DelOld strFldr, intDays

Function DelOld(sFldr, iDays)
On Error Resume Next
Dim oD, cF, cD, oI

Set oD = objFSO.GetFolder(sFldr)
Set cF = oD.Files
Set cD = oD.SubFolders

For Each oI In cF
If DateDiff("d", oI.DateLastModified, Now) > iDays Then oI.Delete
Next

For Each oI In cD
DelOld oI.Path, iDays
If oI.Size = 0 Then oI.Delete
Next
End Function

если нетрудно,не могли бы вы вставить данный кусок кода в приведенный мной скрипт...спасибо..

[Iska]

Код:

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

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

On Error Resume Next
intDays = Int(Wscript.arguments.Item(0))
strFldr = Wscript.arguments.Item(1)

Set objFSO = CreateObject("Scripting.FileSystemObject")
DelOld strFldr, intDays

Function DelOld(sFldr, iDays)
On Error Resume Next
Dim oD, cF, cD, oI

Set oD = objFSO.GetFolder(sFldr)
Set cF = oD.Files
Set cD = oD.SubFolders

For Each oI In cF
If DateDiff("d", oI.DateCreated, Now) > iDays Then
WScript.Echo oI.Path
oI.Attributes = 0
oI.Delete
End If
Next

For Each oI In cD
Select Case objFolder.Name
Case "Test"
Case Else
DelOld oI.Path, iDays
If oI.Size = 0 Then
oI.Attributes = 0
oI.Delete
End If
End Select
Next
End Function
Задача следующая из папки надо раз в неделю удалять все файлы,кроме двух определенных папок и того что в них находиться.
Запускается скрипт bat файлом со следующим содержанием cscript //Nologo MyCleanUp.VBS 1 D:\test >MyCleanupScript.Log
Попробовал в таком виде,из корня каталога файлы удаляются, но папки с файлами находящиеся в том же каталоге нет. Что не так?

[Iska]

Case "Test" »

Коллега, освойте уже, наконец, тэг [code]. Зачем здесь «Test»? Здесь должны быть имена папок, которые должны быть пропущены:

кроме двух определенных папок и того что в них находиться. »

Код: Case "Папка1", "Папка2", "Папка3" »

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

Еще раз извиняюсь за глупые вопросы, ибо в данном вопросе плаваю. Test -это название одной из папок как ра.з

[Iska]

Test -это название одной из папок как ра.з »

Значит, получается, что и корневая (для начала очистки) папка —

D:\test »

и одна из вложенных в неё (которую надо пропускать при очистке), называются одинаково — «test»?