всем привет. есть проблемка : задача простая - в папке много всяких файлов, надо выбирать определенные из них по маске и дальше работать. кол-во я считаю, а поименно их вывести не получается, подскажите плиз :
вот код :

Set fso = CreateObject("Scripting.FileSystemObject")
Set path = fso.GetFolder("C:\SL_log\log\")'далее идет инициализация переменных
Set file_list = path.Files'получение свойств дериктория как файлы данной переменной
count_all_files=0
count_name=0
count_ext=0
mask_name="WF_SME_inc_"
mask_ext=".log"


For Each file_each in file_list 'цикл прохода по всему списку file_list при этом получение в каждом цикле свойства списка в переменную file_each

file_name = file_each.name ' свойство file_each как имя вводится в переменную имени
file_contents =file_contents & File_name & "; " &vbCrLf ' добавление в строку имени обнаруженного файла
count_all_files=count_all_files+1' подсчет всех файлов

' if instr(File_name,mask_ext)>0 Then count_ext=count_ext+1'
q1 = instr(File_name,mask_name)
q2 = instr(File_name,mask_ext)
If q1 > 0 And q2 >0 Then
count_name=count_name+1' поиск в переменной File_name подстроки равной mask_name

WScript.Echo "q1-2 : ---------------------" & q1 & "_" & q2


End If
Next' обход всего file_list
WScript.Echo "count_all_files : ---------------------" & count_all_files
WScript.Echo "count_name : ---------------------" & count_name