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

Тема в разделе "Visual Basic", создана пользователем commandos, 24 июл 2008.

Статус темы:
Закрыта.
  1. commandos

    commandos Гость

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

Поделиться этой страницей