VBS: Поиск файлов в каталоге

Dr.Hofmann, исправьте грамматические ошибки в сообщении и добавьте префикс скриптового языка в заголовок темы.

Как будем писать, такое и будет отношение к форуму

 И посетители соответствующие.

set FSO = CreateObject("Scripting.FileSystemObject")
For each file in FSO.GetFolder(".").Files 'вместо точки путь нужного каталога
 MsgBox file
Next

Set File = FSO.GetFile(file)

Set TextStream = File.OpenAsTextStream(1)
Str = TextStream.ReadAll()
'MsgBox Str
TextStream.Close

'проверка соответствия шаблону. Возвращаемое значение - булево (число). 

Set objRegExp = CreateObject("VBScript.RegExp") ' Описание объекта
objRegExp.Pattern = "123"
GetBool = objRegExp.Test(Str) 

alexii

`ъ, "e
 яяRKBяRKB                  trns.arj  @же  `ъB .e
  ясRKBК  К  жUщ          ЁRKBfЩHB    O8374213020801.ARJ  ???.  `ъ6 "e
 eeЩHBeЩHB                  O8374213020801.ARJ  ўМE  `ъb .e

 efЩHB?
  Z  ]w          fЩHBfЩHB    SBF014583742_775020130208_2949000213000012_100.TXT  ??Е?  
?bc6д;?БГaиrQ6???  ыў?(?Q
ЪАи;0?A?C?6?nеaTыЫщ? ўXl6"b1?¤?l;A] PM
Юк
#iGp?6?х!(w?
    СQЬои?-}wnZ?Ї?їz.
mwбК?)Ў?э???X-{
кy?1уД?s? Ї?S?ф·?Т ??шi8сLFАсУs?рД?цПВ,БAГ?Ш~РнZлщ°{?.ъї5??эZЪ? ЭєЗh76C{??оЪ    CЎ`A??tWKїУИмeN?L0kЙР-6l?-NЭ0,ю(яQIК    мh?g%п%АТy??}J1к?lPУз8р??B??МаV?з
Y#r2й?HgEБ)??ИeXWN;??ИхХx?Эь=RоI????)BЁbP>??;?їГг$i?т}?еHj?Х>wVПK??o?Єф?x№1?їсэЁq?mЄ?О?№и№cў?я?яR S?Pm#гг3ч??и
?Жw7Oу?ўє7з
S Вb??Э{ўнivt?Y?ЩА`ъ  `ъ  

`k,

 разбирая в скрипте вывод этого приложения.

WScript.CreateObject("Wscript.Shell").Run _
"%comspec% /K chcp 1251 &&trid c:\test\doc\test.arj > outfile.txt"

outfile = "outfile.txt"

Set FSO = CreateObject("Scripting.FileSystemObject")

Set File = FSO.GetFile(outfile)

Set TextStream = File.OpenAsTextStream(1)

Str = TextStream.ReadAll()

TextStream.Close

Set objRegExp = CreateObject("VBScript.RegExp")

objRegExp.Pattern = "ARJ compressed archive"

GetBool = objRegExp.Test(Str) 

if GetBool = true then 

else

end If 

set FSO = CreateObject("Scripting.FileSystemObject")
For each file in FSO.GetFolder(".\cat2").Files
Set File = FSO.GetFile(file)
Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("7zip.exe e ??????")
Set objStdOut = objWshScriptExec.StdOut

FileName = file.Name

Вариант 1
WshShell.Run("c:\Program Files (x86)\Nero\Nero 2014\Nero Burning ROM\NeroCmd.exe" --write --drivename "e:\" --underrun_prot --media_type media_cd --speed 24 --iso Test --close_session --disable_eject --recursive c:\backup\"&FileName"",1,True)

Вариант2
WshShell.Run """c:\Program Files (x86)\Nero\Nero 2014\Nero Burning ROM\NeroCmd.exe" --write --drivename "e:\" --underrun_prot --media_type media_cd --speed 24 --iso Test --close_session --disable_eject --recursive c:\backup\"&FileName""""