поиск папок

[Rik3D]

Если в папке содержутся ещё папки,как мне их най ти и вывести названия и их количество на лист?

[Rombo]

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

Sub asd()

Dim fso, fsFolder, fsFile, fsfolder2
Set fso = CreateObject("scripting.filesystemobject")


Set fsFolder = fso.GetFolder("c:\Program files")
Set DestRange = Range("A1")

DestRange.CurrentRegion.ClearContents

For Each fsfolder2 In fsFolder.subfolders
Set NewLine = DestRange.Offset(DestRange.CurrentRegion.Rows.Count, 0)
NewLine.Offset(0, 0).Value = fsfolder2.Name
NewLine.Offset(0, 1).Value = fsfolder2.Size
NewLine.Offset(0, 2).Value = fsfolder2.DateCreated

Next


Set fso = Nothing
Set fsFolder = Nothing
Set fsfolder2 = Nothing

End Sub


see also http://msdn.microsoft.com/library/defau ... ptinga.asp

[Igor_123]

2 Rombo его интересуют готовые решения, а не подсказки

[Rik3D]

Спасибо ,Rombo!
Igor_123 ты не прав!!!

[Igor_123]

Если, бы я был не прав, то этих вопросов не было бы!
Потому, что ты почитал! бы о FSO и задавал бы другие вопросы!

[Rik3D]

Igor_123, я то задал фопрос о том чего не знал!А о FSO я уже прочитал , и теперь знаю как работать с файлами и папками!!!