Файлы и папки в одном окне

[dimix]

Подскажите, plz, какой-дь контрол, чтобы файлы и папки отображались в одном окне. Типа DirList и FileList в одном. Только хотелось бы что-то простое, работающее по принципу тех же DirList и FileList, чтобы для того, чтобы список заполнить, требовался минимум действий - указал диск (каталог) и все готово.

[Sirik]

кидай на форму:
Dir1 (DirList), File1 (FileList), Command1 (кнопка)

и код:

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

Private Sub Command1_Click()
    Dim I As Long, st_Dir As String
   
    Dir1.Path = "C:\WINDOWS\"
    File1.Path = Dir1.Path
   
    For I = 0 To Dir1.ListCount - 1
        If Len(Dir1.Path) = 3 Then
            st_Dir = "[" & Right(Dir1.List(I), Len(Dir1.List(I)) - Len(Dir1.Path)) & "]"
        Else
            st_Dir = "[" & Right(Dir1.List(I), Len(Dir1.List(I)) - Len(Dir1.Path) - 1) & "]"
        End If
        List1.AddItem st_Dir
    Next
    For I = 0 To File1.ListCount - 1
        List1.AddItem File1.List(I)
    Next

End Sub

[EvilCoder]

А помоему ему ListView нужен...

[Qubicz]

List1.AddItem File1.List(I)

[Sirik]

Конечно нужен (забыл в список кинуть).

Этот способ прост хорош, но много уж компонентов учавстует.

Можно также использовать функцию DIR, с ней куда проще.

[Костя]

А почему бы не использовать CommonDialog, настроив его как FileDialog?

[dimix]

EvilCoder, ListView наверное решил бы проблему, вот только работать с ним также просто, как с FileList уже не получится. А хочется чего-то легкого в обращении.

Костя, CommonDialog - это круто. Тока мне нужно, чтобы было прямо на форме. А разве с CD так получится?

[KDima]

Можно "захватить" его себе на форму

[dimix]

Можно "захватить" его себе на форму

То есть? Это прикол? А то мне пока знаний не хватает с уверенностью отличить прикол от серьезного совета

[GSerg]

Ответ серьёзный, но для правильной его реализации... В общем, я пока не могу сказать, как это можно сделать из VB