VBNet - Форум - Сканирование директории

Вопрос: Сканирование директории Добавлено: 09.03.08 21:42

Автор вопроса: mrphn

Возникла проблема, при использовании OLEDragDrop передается путь допустим к файлам и директориям (с вложенными папками и файлами). Задача состоит в том, чтобы просканировать директорию (со всеми поддиректориями) на наличие файлов с определенной маской и вывести полные пути к ним.

Папку сканирую так:

Public Sub SearchFiles(ByVal strFolder As String)
    On Error Resume Next

    Dim vrFolder As Variant
    Dim vrFile As Variant

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set vrFolder = fso.GetFolder(strFolder)

    For Each vrFile In vrFolder.Files
        lvwList.ListItems.Add , , vrFile.Name
    Next
End Sub

Ответить

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

Номер ответа: 1 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #1	Добавлено: 09.03.08 22:50
	РИКУРСЕЯ в помощь. ..или я не понял вопроса) Ответить

Номер ответа: 2 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #2	Добавлено: 09.03.08 23:45
	+1. Если догадаешься, как переделать это, чтоб работало рекурсивно - пять тебе! Ответить

Номер ответа: 3 Автор ответа: mrphn Вопросов: 5 Ответов: 12	Профиль \| \| #3	Добавлено: 10.03.08 10:38
	Да рекурсия это) Счас попробуем разобраться. Просто может у кого уже готовое решение есть? Ответить

Номер ответа: 4 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #4	Добавлено: 10.03.08 10:56
	On Error Resume Next dim f,f1,sf,fso Set fso = CreateObject("Scripting.FileSystemObject" set f = fso.GetFolder(folderspec) set sf = f.SubFolders for each f1 in sf call SearchFiles(f1.path) '''''' folderlist(f1.path) Next Ответить

Номер ответа: 5 Автор ответа: mrphn Вопросов: 5 Ответов: 12	Профиль \| \| #5	Добавлено: 10.03.08 12:24
	спасиб) я уже разобрался Ответить

Страница: 1 |