Total Commander

Код: Выделить всё

Option Explicit 

Dim FSO, MSO, MSG, File, List, F, FN 
Dim CurDate, CurYear, CurMonth, CurDay, CurHour, CurMinute, CurSecond
Dim Fnam, Ras
Dim CommentVal
Dim lText
Dim lComm
Dim i
Dim strLine

List = WScript.Arguments(1) 

Set FSO = CreateObject("Scripting.FileSystemObject")

For Each F In Split(FSO.OpenTextFile(List).ReadAll, vbNewLine) 
  If F <> "" And FSO.FileExists(F) Then 		
    Set File = FSO.GetFile(F)
	FN = File.Name 					'получить название файла
	lText = FSO.OpenTextFile(F).ReadAll
	lComm = Filter(Split(lText, vbNewLine), "200", True, 1) 	'выбрать строку соответствующую наименованию файла
	If UBound(lComm) > - 1 Then 'если строка со значением 200 найдена
	   MsgBox "Здесь будет обработчик фрагмента и переименование файла"
	Else
	   MsgBox "Ничего не делаем и выбираем следующий файл"
	End If
  End If 
Next 

Set MSO = Nothing 
Set FSO = Nothing 
Set File = Nothing
WScript.Quit