1. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Первый товар уже в продаже: Консультация на тему ИБ от Ondrik8

    Скрыть объявление
  2. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Второй товар маркетплейса: Надёжная обфускация вашей программы от PingVinich

    Скрыть объявление

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

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

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

    commandos Гость

    Репутация:
    0
    скрипт ищет файлы по маске и выводит результат на экран.
    Задача: сохранить найденные файлы в нужный каталог.
    __________________________________________________ ____
    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
     
Загрузка...
Похожие Темы - Хелп помогите доработать
  1. alexstudent
    Ответов:
    0
    Просмотров:
    1.693
  2. ioni
    Ответов:
    0
    Просмотров:
    2.790
  3. Medevic
    Ответов:
    2
    Просмотров:
    2.119
  4. sanch
    Ответов:
    6
    Просмотров:
    2.617
  5. number27
    Ответов:
    0
    Просмотров:
    76
Статус темы:
Закрыта.

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