Файлы и папки

[AHDPE@ich]

Как быстро отобразить список всех папок(включая подпапки) и файлов на винте?

[alibek]

Легко.
За чем дело стало?

[AHDPE@ich]

КАК это осуществить?

[alibek]

Какие самостоятельные действия были для этого предприняты?

[SLIM]

[ОФФТОП]Странно наблюдать уже такие вопросы. Мне кажется что по поиску можно найти миллион ссылок даже не с нашего формуа[/ОФФТОП]
А вообще вопрос то....лучше всего для простоты использовать старый родной FSO.

[Viper]

AHDPE@ich, начни с Dir. А вообще вопрос настолько тривиален, что легко решается Поиском.

[SLIM]

AHDPE@ich, начни с Dir

Прикалываешься. В данном случаем мало поможет. Проще всего FSO. Говорю же. И производительнее будет.

[Хакер]

Dir поможет много, и будет более производително, чем FSO.

[Antonariy]

Офф слегка.
Сравнительные тесты показали, что fso шустрее, чем dir, работает с сетевыми папками. И, да, медленне с локальными.

[Alexanbar]

Dir нельзя вызывать рекурсивно

[Antonariy]

Можно, если сначала перебрать все содержимое папки и запомнить папки вложенные. Потом рекурсивно перебрать их.

[AHDPE@ich]

Какие самостоятельные действия были для этого предприняты?

Нашел пример функции с Dir'ом, но она очень громоздкая и работает действительно долго.
А можно поподробнее про FSO, а именно про перебор файлов и папок?

[SLIM]

Dir нельзя вызывать рекурсивно

Вот вот. Я то о том и говорю. Хоть вариант с запоминанием вложенных папок интересен, но мне кажеся тормозить будет страшно. Куда проще будет перебирать коллекции файлов и папок. Но это я так.....просто кажется

[BION]

Вот пример из VB5, поиск файлов по маске всё чисто на контролах , и ничего не надо мудрить.

[SLIM]

Вот пример из VB5, поиск файлов по маске всё чисто на контролах , и ничего не надо мудрить.

[ОФФ]Не знаю как кого, но меня немного покарежило после фразы "ничего мудрить не надо"[/ОФФ]
А если по делу, то ты предлагаешь теперь если поадобится отобразить список папок постоянно "пихать" в приложение эти контролы? Которые использовались еще в 98 (а помоему и раньше).
Мне кажется здесь задачу нужно решить раз и навсегда. Так чтобы даже если через пяток лет нужно было подключить модуль с этой ф-ей и использовать где хочешь.....Зачем легкий путь то?

[BION]

Вот пример из VB5, поиск файлов по маске всё чисто на контролах , и ничего не надо мудрить.

[ОФФ]Не знаю как кого, но меня немного покарежило после фразы "ничего мудрить не надо"[/ОФФ]
А если по делу, то ты предлагаешь теперь если поадобится отобразить список папок постоянно "пихать" в приложение эти контролы? Которые использовались еще в 98 (а помоему и раньше).
Мне кажется здесь задачу нужно решить раз и навсегда. Так чтобы даже если через пяток лет нужно было подключить модуль с этой ф-ей и использовать где хочешь.....Зачем легкий путь то?

Да этот пример и не притендует на фундаментальность, эт так, лишь бы ляпнуть...
Правильно все ты говоришь, надо — сделаем.
От себя — склоняюсь к ФСО:

Код: Выделить всё

Dim fso, drv, DriveLetter, lcount&

Sub Walk(objFolder)
    Dim fl, fld
    For Each fl In objFolder.Files
        lcount = lcount + 1
        Me.Caption = lcount
        'txtResult.Text = txtResult.Text + fl.Name + _
            'vbTab + DriveLetter + Mid(fl.Path, 3, Len(fl.Path) - Len(fl.Name) - 2) + vbCrLf
        'txtResult.SelStart = Len(txtResult.Text)
        DoEvents
    Next
    For Each fld In objFolder.SubFolders
      Walk fld
      DoEvents
    Next
End Sub

Private Sub cmdSearch_Click()
    DriveLetter = "d:"
    lcount = 0
    Set fso = CreateObject("Scripting.FilesystemObject")
    Set drv = fso.GetFolder(DriveLetter)
    Walk drv
    Set drv = Nothing
End Sub

[Viper]

Нашел пример функции с Dir'ом, но она очень громоздкая и работает действительно долго.

Что за пример? В чем его громоздкость? Долго работает в среде или в готовом экзешнике?
BION, отвечать, ради того, что бы ответить не стоит. Оба твоих примера являются примерами того, как делать не надо! Особенно вариант на контролах.

[BION]

Нашел пример функции с Dir'ом, но она очень громоздкая и работает действительно долго.

Что за пример? В чем его громоздкость? Долго работает в среде или в готовом экзешнике?
BION, отвечать, ради того, что бы ответить не стоит. Оба твоих примера являются примерами того, как делать не надо! Особенно вариант на контролах.

Задело
1. Про контролы достали... , это не я придумал а MS!
2. Пардон, твой критичниый «ответ» тоже мало чем полезен, будь продуктивнее (Професьён де фуа) — предложи свой вариант. И потом, чем тебя FSO не учстроил?
3. Меж тем, я поспешил найти третий вариант, на API. Это устроит предводителя дворянства?
Жду критики!

[Viper]

:!: Задело
1. Про контролы достали... , это не я придумал а MS!

И что, MS вне критики? Не стоит все повторять за MS вслепую.

2. Пардон, твой критичниый «ответ» тоже мало чем полезен, будь продуктивнее (Професьён де фуа) — предложи свой вариант. И потом, чем тебя FSO не учстроил?

Свой вариант я предложил в самом начал - использование Dir. Если бы автор поискал по форуму, он легко бы нашел вполне рабочие реализации. FSO не устраивает тем, что он является прстой оберткой над API.

3. Меж тем, я поспешил найти третий вариант, на API. Это устроит предводителя дворянства?
Жду критики!

Будем посмотреть. Первый глюк уже обнаружил - при попытке найти файлы с маской "*.*" в папке "C:\", прога надолго задумалась, а потом выдала ошибку переполнения.

[BION]

Будем посмотреть. Первый глюк уже обнаружил - при попытке найти файлы с маской "*.*" в папке "C:\", прога надолго задумалась, а потом выдала ошибку переполнения.

FileCount As Integer => 32767 => overflow

[Antonariy]

Будем посмотреть. Первый глюк уже обнаружил - при попытке найти файлы с маской "*.*" в папке "C:\", прога надолго задумалась, а потом выдала ошибку переполнения.

FileCount As Integer => 32767 => overflow

"Да разве ж это ошибка? Видала я ошибки, рядом с которыми эта — документированная возможность." © Черная Королева.

[Viper]

Будем посмотреть. Первый глюк уже обнаружил - при попытке найти файлы с маской "*.*" в папке "C:\", прога надолго задумалась, а потом выдала ошибку переполнения.

FileCount As Integer => 32767 => overflow

Хочешь сказать, что это нормально? 32 тыщи файлов маловато для современного компа.

[Viper]

2 BION. После легкой обработки напильником получилось следующее.

SearchByAPI.rar

(2.11 Кб) Скачиваний: 79

Найдите два отличия. Можно конечно повозиться подольше, например, найденные файлы помещать вначале в массив, а уж потом в ListBox. Но на это времени юк.

[BION]

Будем посмотреть. Первый глюк уже обнаружил - при попытке найти файлы с маской "*.*" в папке "C:\", прога надолго задумалась, а потом выдала ошибку переполнения.

FileCount As Integer => 32767 => overflow

Хочешь сказать, что это нормально? 32 тыщи файлов маловато для современного компа.

Вопервых, написано на автоматизме . Вовторых загадили комп то! Шучу...
Эт ж всё балванка, алмаз — нужно облагородить, подвергнуть огранке, и все засияет!

2 BION. После легкой обработки напильником получилось следующее.

SearchByAPI.rar

Найдите два отличия. Можно конечно повозиться подольше, например, найденные файлы помещать вначале в массив, а уж потом в ListBox. Но на это времени юк.

Ну вот и славно
Можно биляткчку или класец наваять.

[BION]

2 Viper.
Стоп, чёт он у тя не ищет по маске, допустем подефолту "*.mp4" — пустой лист, по маске "*.*" вроде находит. Чет перемудрил

[Viper]

Ну вот и славно
Можно биляткчку или класец наваять.

Дык! Вперед! Глядишь в кирпичи поместим! Главное, обрати внимание на разницу исходного кода и конечного.

[Viper]

2 Viper.
Стоп, чёт он у тя не ищет по маске, допустем подефолту "*.mp4" — пустой лист, по маске "*.*" вроде находит. Чет перемудрил

У меня по любой маске все что надо находит.

[BION]

2 Viper.
Стоп, чёт он у тя не ищет по маске, допустем подефолту "*.mp4" — пустой лист, по маске "*.*" вроде находит. Чет перемудрил

У меня по любой маске все что надо находит.

Странно, у меня нет. Либо находит, но не все.

[Viper]

2 Viper.
Стоп, чёт он у тя не ищет по маске, допустем подефолту "*.mp4" — пустой лист, по маске "*.*" вроде находит. Чет перемудрил

У меня по любой маске все что надо находит.

Странно, у меня нет. Либо находит, но не все.

Действительно! Не находит во вложенных папках. Чуток перемудрил.

[Viper]

Пришлось чуток вернуться к исходному коду. Теперь ищет все и везде.