Обзор директории (папки)

[EvilCoder]

<DELETE>

[Kostyan]

Помести на форму текстбокс и этот код:

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

Private Sub Form_Load()
Dim s As String
s = Dir$("C:\", vbDirectory + vbSystem + vbHidden)
Do While s <> ""
  Text1.Text = Text1.Text & s & vbCrLf
  s = Dir$
Loop
End Sub


После загрузки формы в текстбоксе увидишь список всех файлов и папок с диска C, включая системные и скрытые (регулируется вторым параметром Dir$)

[EvilCoder]

<DELETE>

[Max!]

А ты текстбокс"у поставь Text1.ScrollBars = 2 Text1.MultiLine = True
или в
Private Sub Form_Load()
в начало

[EvilCoder]

<DELETE>

[Max!]

Ну попробуй так измени
s = Dir$("C:\", vbDirectory + vbSystem + vbHidden)
на
s = Dir$("C:\", vbSystem + vbHidden)
и все!

[EvilCoder]

<DELETE>

[Max!]

Папробуй так , помести на форму две OptionButton's , Text1.text !

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

'В событие GENERAL
Dim s As String


Private Sub folders()
s = Dir$("C:\", vbDirectory + vbSystem + vbHidden)
Do While s <> ""
  Text1.Text = Text1.Text & s & vbCrLf
  s = Dir$
Loop
End Sub

Private Sub files()
s = Dir$("C:\", vbSystem + vbHidden)
Do While s <> ""
  Text1.Text = Text1.Text & s & vbCrLf
  s = Dir$
Loop
End Sub

'opt1, opt2 - OptionButton's
Private Sub opt1_Click()
Text1.Text = ""
Call folders
End Sub

Private Sub opt2_Click()
Text1.Text = ""
Call files
End Sub


[Kostyan]

To Max!: Ты пишешь одно и тоже на разные вопросы...
Чтобы были только папки делай так:

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

s = Dir$("C:\", vbDirectory + vbHidden + vbSystem)
Do While s <> ""
  If GetAttr("C:\" & s) = vbDirectory Then Text1.Text = Text1.Text & s & vbCrLf
  s = Dir$
Loop


[EvilCoder]

<DELETE>