[greg zakharov]

Хотя я задокументировал сценарий, все же поясню. Первый параметр, передаваемый сценарию - папка, в которой находятся файлы, второй - повторяющееся имя файлов, третий - расширение того файла, которое не должно быть удалено.

Код:

Function DeleteReplicants(dir, name, ext)
  With CreateObject("Scripting.FileSystemObject")
    Dim objFolder : Set objFolder = .GetFolder(.GetAbsolutePathName(dir))
    
    For Each objFile In objFolder.Files
      Dim objArray : objArray = Split(.GetFileName(objFile), ".", -1, 1)
      If objArray(0) = name And objArray(1) <> ext Then
        WScript.Echo objFile
        .DeleteFile(objFile)
      End If
    Next
    
    Set objFolder = Nothing
  End With
End Function

If WScript.Arguments.Count <> 3 Then
  WScript.Echo "Usage: " & WScript.ScriptName & " <path> <name> <ext>"
  WScript.Echo "  path - source place for the files to process"
  WScript.Echo "  name - a base name which repeats twice or more times"
  WScript.Echo "  ext  - extension of that file which shouldn" & Chr(39) & "t be deleted"
  WScript.Quit(1)
End If

Dim args : Set args = WScript.Arguments : DeleteReplicants args(0), args(1), args(2)
Set args = Nothing