РАБОТА С ПАПКАМИ!!!!

[step]

ПЛИЗ ПОМОГИТЕ!!
КАК В ТЕКСТБОКСЕ РАЗМЕСТИТЬ НАЗВАНИЯ ПАПОК В ВЫБРАННОЙ ДИРЕКТОРИИ (НАПРИМЕР ДИСК С:\ )
ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО!!!

[EvilCoder]

<DELETED>

[Ruslan Demidow]

Покажу на примере с FSO

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

Dim FSO As Object
Dim Fldr As Object
Dim SubFldrs As Object
Dim CurrentSubFldr as Object
Dim sPath As string

sPath="C:\"
Set FSO=CreateObject("Scripting.FSO")
Set Fldr=FSO.GetFolder(sPath)
Set SubFldrs=Fldr.SubFolders

For Each CurrentSubFldr in SubFldrs
       Text1.Text=Text1.Text & CurrentSubFldr.Name & vbcrlf
Next

Set FSO=Nothing
Set Fldr=Nothing
Set SubFldrs=Nothing
Set CurrentSubFldr=Nothing


Через Dir$
Могу ошибаться...

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

Dim sPath as String
Dim sFolder as String

sPath="c:\"

sFolder=Dir$(sPath,vbFolders)
if len(sFolder)=0 then
     MsgBox "Каталогов нет."
Else
    while Len(sFolder)<>0
      Text1.Text=Text1.Text & sFolder & vbcrlf
   wend
end if


[alibek]

Не vbFolder, а vbDirectory. И в цикле надо разместить вызов Dir$(), а то у тебя он бесконечный

[step]

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

Dim sPath as String
Dim sFolder as String

sPath="c:\"

sFolder=Dir$(sPath,vbFolders)
if len(sFolder)=0 then
     MsgBox "Каталогов нет."
Else
    while Len(sFolder)<>0
      Text1.Text=Text1.Text & sFolder & vbcrlf
   wend
end if


[/quote]
Я ПРОБОВАЛ ЭТОТ КОД, ОН ПИШЕТ ТОЛЬКО ПЕРВУЮ ПАПКУ, ПОДСКАЖИТЕ ЧТО В НЁМ НАДО ИЗМЕНИТЬ, ЧТО-БЫ ВСЕ ПАПКИ ПИСАЛИСЬ!!!

[XairOn]

Тебе ведь ответили уже - надо в цикле разместить Dir$()

[step]

Тебе ведь ответили уже - надо в цикле разместить Dir$()

Ну а куда Dir$() пихать в цикле ???

[Ruslan Demidow]

Не vbFolder, а vbDirectory. И в цикле надо разместить вызов Dir$(), а то у тебя он бесконечный

Пардон, обшибся (писал с работы). Я даже указал на то, что возможны ошибки.

Хотя я по возможности всегда стараюсь пользоваться первым вариантом - он допускает расширение возможностей функции.

[Ruslan Demidow]

Тебе ведь ответили уже - надо в цикле разместить Dir$()

Ну а куда Dir$() пихать в цикле ???

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

Option Explicit

Private Sub Form_Load()
Dim sPath As String
Dim sFolder As String

Text1.Text=vbNullString
sPath = "c:"

sFolder = Dir$(sPath, vbDirectory)
If Len(sFolder) = 0 Then
     MsgBox "Каталогов нет."
Else
    While Len(sFolder) <> 0
      Text1.Text = Text1.Text & sFolder & vbCrLf
      sFolder = Dir$()
   Wend
End If
End Sub


Вот исправленный.

2 alibek И ещё - в данном случае у меня в список попадают и файлы (обычные, которые не скрытые и не системные). Что я не так делаю?

[step]

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

Option Explicit

Private Sub Form_Load()
Dim sPath As String
Dim sFolder As String

Text1.Text=vbNullString
sPath = "c:\"

sFolder = Dir$(sPath, vbDirectory)
If Len(sFolder) = 0 Then
     MsgBox "Каталогов нет."
Else
    While Len(sFolder) <> 0
      Text1.Text = Text1.Text & sFolder & vbCrLf
      sFolder = Dir$()
   Wend
End If
End Sub


ЭТО ТО ЧТО НАДО ОГРОМНОЕ СПАСИБО ВСЕМ НУ И КОНЕЧНО Ruslanu Demidowu