[Iska]

neprotiv, если нужно просто найти файлы с потерянной скобкой — regexp не обязателен, достаточно просто посчитать количество открывающих и закрывающих скобок, затем сравнить эти количества.

Пример на WSH:

Код:

Option Explicit

Dim strFolder
Dim objFile


'strFolder = WScript.Arguments.Item(0)
strFolder = "E:\Песочница\0197"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FolderExists(strFolder) Then
		For Each objFile In .GetFolder(strFolder).Files
			If UBound(Split(objFile.Name, "(")) <> UBound(Split(objFile.Name, ")")) Then
				WScript.Echo objFile.Name
			End If
		Next
	Else
		WScript.Echo "Folder [" & strFolder & "] not found"
	End If
End With

WScript.Quit 0

↧ Возможный результат ↧

Код:

слово1_-_слово2-(50505050)-слово4-(слово5-слово6.txt
слово1_-_слово2-(50505050)-слово4-слово5)-слово6.txt

если файл содержит лишнюю скобу - либо ( либо ( »

«либо ( либо (» — оригинально . Очевидно, имелось в виду «Либо «(», либо «)»»?