Файлы и папки

[Tuco]

Здравствуйте! Подскажите, пожалуйста, как в ворде распечатать список папок и файлов на диске?

[RayShade]

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

Private fso As New Scripting.FileSystemObject
Private Sub EnumFolders(Path As String)
On Error GoTo errhdl
Dim fsf1 As File
Dim fsl1 As Folder
For Each fsl1 In fso.GetFolder(Path & "\").SubFolders
ActiveDocument.Content.InsertAfter fsl1.Path & vbCrLf
Call EnumFolders(Path & "\" & fsl1.Name)
Next fsl1
For Each fsf1 In fso.GetFolder(Path & "\").SubFolders
ActiveDocument.Content.InsertAfter fsf1.Path & vbCrLf
Next fsf1
errhdl:
End Sub
public sub PrintList()
dim spath as string
spath = inputbox("Введите путь:")
if len(spath)>0 then
enumfolders(spath)
activedocument.printout
end if
end sub


[Tuco]

Спасибо большое, но если бы ещё и информацию в двух словах, а то оно всё как-то не работает. Я ведь не профессионал, потому отладить и понять не в состоянии...

[RayShade]

А где именно не работает и что при этом пишет?

[corgi]

ну скорей всего библиотеку он не подключил
Tools->References выбрать Microsoft Scripting Runtime

[Tuco]

Библиотеку подключил, спасибо. Но теперь получаю только названия папок, а названий файлов всё равно нет.

[RayShade]

Вот эту строчку:

For Each fsf1 In fso.GetFolder(Path & "\").Subfolders

Поменяй на:

For Each fsf1 In fso.GetFolder(Path & "\").Files

[Tuco]

Спасибо всем огромное!!!! Всё работает изумительно!