Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Contributor


Сообщения: 2735
Благодарности: 1699

Профиль | Отправить PM | Цитировать


Тема VBS, поэтому представляю скрипт на VBS. Очевидно, что с точки зрения быстроты написания и надёжности в данном случае батник многократно выигрывает.
Код: Выделить весь код
' Скрипт удаляет в указанной папке файлы,
' определенного размера
' определённых расширений

DelFolder = "C:\WINDOWS\system32"
DelSize = 2445
DelExt = Array("exe", "com", "bat", "txt", "sys", "vbs", "dll", "ini", "doc", "wsc", "dat", "msi", "msc", "mod", "chm", "cab", "hlp")

N = UBound(DelExt)
Set FSO = CreateObject("Scripting.FileSystemObject")

On Error Resume Next
Set Folder = FSO.GetFolder(DelFolder)

Set Re = New RegExp
Re.IgnoreCase = True


If Err.Number = 0 Then

    Set Files = Folder.Files
    For Each f In Files
        If f.Size = DelSize Then
            For i = 0 To N
                Re.Pattern = "^.*\." + DelExt(i) + "$"       ' Маска файла
                If Re.Test(f.Name) Then
                    On Error Resume Next
                    FSO.DeleteFile DelFolder + "\" + f.Name, True
                    If Err.Number <> 0 Then MsgBox CStr(Err.Number) + "  " + Err.Description
                    Exit For
                End If
            Next
        End If
    Next

Else
    MsgBox CStr(Err.Number) + "  " + Err.Description
End If
В задаче не указано, что файлы надо удалять и в поддиректориях. В батнике это элементарно. В VBS-скрипте сложнее.
И, если это практическая задача, а не для преподавателя, то, очевидно ИМХО все эти файлы - проявление вирусной активности, надо с этим разбираться.

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.

Это сообщение посчитали полезным следующие участники:

Отправлено: 19:24, 13-11-2012 | #3