Модераторы: diadiavova, gambit
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Список файлов по шаблону 
:(
    Опции темы
Exception
Дата 7.6.2007, 19:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 18
Всего: 186
Код находит все файлы, соответствующие данному шаблону, в указанной папке.

Код
''' <summary>Находит имена файлов, соответствующих данному шаблону и находящихся в указанной папке.</summary>
''' <returns>Массив имён файлов.</returns>
''' <param name="pattern">Шаблон имени файла, например, <c>*.txt</c>.</param>
''' <param name="dir">Имя директории.</param>
''' <param name="includeSubdirs">Если <c>true</c>, поиск будет осуществляться и по вложенным папкам.</param>
Public Function FindFiles (ByVal pattern As String, ByVal dir As String, ByVal includeSubdirs As Boolean) As String()
    Dim dirInfo As New DirectoryInfo(dir)
    Dim paths As New List(Of String)
    ListFiles (paths, pattern, dirInfo, includeSubDirs)
    Return paths.ToArray ()
End Sub

Private Sub ListFiles(list As List(Of String), ByVal pattern _
    As String, ByVal dirInfo As DirectoryInfo, ByVal includeSubdirs As Boolean)

    Dim fsInfos() As FileInfo = dirInfo.GetFiles (pattern)
    For Each fsInfo As FileInfo In fsInfos
        list.Add(fsInfo.FullName)
    Next
    If includeSubdirs Then
        Dim subDirs() As DirectoryInfo = _
            dirInfo.GetDirectories ()
        For Each subDir As DirectoryInfo In subDirs
            ListFiles(list, pattern, subdir)
        Next
    End If
End Sub

' ...

Dim found As String() = FindFiles ("*.txt", "C:/", true)


Это сообщение отредактировал(а) Exception - 7.6.2007, 19:31
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0366 ]   [ Использовано запросов: 23 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.