VBNet - Форум - Поиск файлов на диске

Вопрос: Поиск файлов на диске Добавлено: 26.10.02 20:33

Автор вопроса: ism | ICQ: 237575486

Как найти все текстовые (*.txt) файлы в папке включая подпапки и записать путь к ним в массив

Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #1

Добавлено: 27.10.02 00:15

Попробуй с помощью оператора DIR

Ответить

Номер ответа: 2
Автор ответа:

Ян

ICQ: 816105

Вопросов: 38
Ответов: 198

Web-сайт: www.yan.net.ru
Профиль | | #2

Добавлено: 27.10.02 00:41

Выполни рекурсивный перебор папок http://www.vbnet.ru/faq/showtopic.asp?id=36

И одновременно проверяй наличие *.txt в каждой папки
с помощью Dir или API функций

Удачи!

Ответить

Номер ответа: 3
Автор ответа:

paul_sn

Вопросов: 16
Ответов: 164

Web-сайт: sergeyev.zzn.com
Профиль | | #3

Добавлено: 27.10.02 17:30

Я отправил тебе на мыло примерчик

Удачи

Ответить

Номер ответа: 4
Автор ответа:

Petrovich

Вопросов: 9
Ответов: 84

Профиль | | #4

Добавлено: 28.10.02 10:42

Для работы с файлами-папками-дисками есть замечательная объектная библиотека Windows Script Host Object Model

Подключи в References "Windows Script Host Object Model"

Посмотри как пример использования объекта FSO

Можно организовать в цикле просмотр вложенных папок, здесь ищет только в одной папке

Option Explicit

Sub main()
    Dim fso As New FileSystemObject
    Dim fld As Folder
    Dim f As File
    Dim arrFiles()
    Dim i As Integer
    Set fld = fso.GetFolder("C:\Windows")

    For Each f In fld.Files
        'Можно фильтровать по системному типу

'If f.Type = "Текстовые файлы" Then

        'или по расширению
        If GetExtOfFile(f.Path) = ".txt" Then
            ReDim Preserve arrFiles(i)
            arrFiles(i) = f.Path
            i = i + 1
        End If
    Next
End Sub

Function GetExtOfFile(ByVal sFileName As String) As String
GetExtOfFile = Mid$(sFileName, InStrRev(sFileName, "."))
End Function

Ответить

Страница: 1 |