[neprotiv]

список неправильных файлов в текстовом документе

[Iska]

список неправильных файлов в текстовом документе »

Куда, в какую папку, класть текстовый документ? Для чего вообще нужен текстовый документ — т.е., какова будет дальнейшая работа с найденными именами файлов с потерянными скобками?

Почему не ответили на второй вопрос — выделенных на панели файлов, всех файлов, або ещё каких?

P.S. Вот Вам пример — для выделенных на панели файлов:

читать дальше »

Код:

Option Explicit

Dim objArgument
Dim objFile

Dim strMessage


If WScript.Arguments.Count <> 0 Then
	strMessage = ""
	
	For Each objArgument In WScript.Arguments
		With WScript.CreateObject("Scripting.FileSystemObject")
			If .FileExists(objArgument) Then
				With .GetFile(objArgument)
					If UBound(Split(.Name, "(")) <> UBound(Split(.Name, ")")) Then
						strMessage = strMessage & .Path & vbCrLf
					End If
				End With
			End If
		End With
	Next
	
	If Len(strMessage) <> 0 Then
		WScript.Echo strMessage
	End If
End If

WScript.Quit 0

Настройки для кнопки:

читать дальше »