скрипт ищет файлы по маске и выводит инфу на экран.
Задача: копировать найденные файлы в нужный каталог.
------------------------------------------------------------------
Dim fso,mySet,myDir,st
Dim s()
Dim l()
i=0
n=0
For Each m1 in Split("cer"," ",-1,1) ' "cer" - расширение файла которые ищем.
ReDim Preserve l(n+1)
l(n)=m1
n=n+1
Next
Set fso = CreateObject("Scripting.FileSystemObject")
Sub ListFolder(curDir)
For Each f1 in fso.GetFolder(curDir).Files
If n=0 Then
ReDim Preserve s(i+1)
s(i) = f1.path
i=i+1
Else
For t=0 To n-1
If Right(f1.name,Len(l(t))+1)="."&l(t) Then
ReDim Preserve s(i+1)
s(i) = f1.path
i=i+1
End If
Next
End If
Next
For Each s1 in fso.GetFolder(curDir).SubFolders
If Not s1.attributes=22 Then
ListFolder(s1.path)
End If
Next
End Sub
ListFolder("D:\") ' "D:\" - диск накотором идет поиск
For k=0 To i-1
If Len("Количество файлов: " & i & vbCrLf & st & k+1 & ") " & s(k) & vbCrLf)<1000 Then
st=st & k+1 & ") " & s(k) & vbCrLf
Else
MsgBox "Количество файлов: " & i & vbCrLf & st
st=k+1 & ") " & s(k) & vbCrLf
End If
Next
MsgBox "Количество файлов: " & i & vbCrLf & st
