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