Хелп, помогите доработать код

  • Автор темы commandos
  • Дата начала
Статус
Закрыто для дальнейших ответов.
C

commandos

Гость
#1
скрипт ищет файлы по маске и выводит результат на экран.
Задача: сохранить найденные файлы в нужный каталог.
__________________________________________________ ____
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
 
Статус
Закрыто для дальнейших ответов.