VBNet - Форум - Получения списка папок ?....

Вопрос: Получения списка папок ?.... Добавлено: 14.08.03 07:00

Автор вопроса: Grayich | Web-сайт: grayich.narod.ru | ICQ: 208280504

Привет всем !
Есть код:
Private Sub Command1_Click()
Dim Fold As String
Fold = Dir("c:\*", VbFileAttribute.vbDirectory)
List1.AddItem Fold
Do While Fold <> ""
Fold = Dir
If Fold <> "" And GetAttr("c:\" & Fold) = vbDirectory Then
List1.AddItem Fold
End If
Loop
End Sub
Но если папки имеют атрибуты Скрытый, Архивный или системный то в список они не заносятся.
Можно конечно написать так
If Fold <> "" And GetAttr("c:\" & Fold) = vbDirectory or _
And GetAttr("c:\" & Fold) = vbDirectory + vbArchive + vbHidden
............................................. и так далее
Then
но так почемуто не всегда срабатывает да и писать многовато :( (ведь надо перебрать все варианты)

Как можно усовершенствовать этот пример(чтобы он получал список всех папок независимо от их атрибутов), или как можно получить список ВСЕХ папок в текущей директории другими способами ?
Заранее благодарю !

Ответить

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

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

LamerOnLine

ICQ: 334781088

Вопросов: 108
Ответов: 2822

Профиль | | #1

Добавлено: 14.08.03 09:09

Проще всего использовать DirListBox. Сделай ему Visible=false. Немного больше памяти займет, зато быстрее. Это важно, когда хочешь получить список каталогов со вложенными подкаталогами.

А вообще можно добавить этот контрол даже в Run-time и затем его удалить.

Ответить

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