Please help to list folders and subfolders tree in Excel or Word

[observer]

Please help to list folders and subfolders tree in Excel or Word

 

[Sheeloo]

From http://en.allexperts.com/q/Excel-1059/list-files.htm
Change D:\ to the directory you want... don't forget the \ at the end

1. Tools-macro-visual basic editor
2. insert-module
3. copy

Sub AllFilenames()
Rem Change D:\ to your folder path
D = "D:\"
Cells(1, 1) = "Filenames"
r = 2
f = Dir(D, 7)
Do While f <> ""
Cells(r, 1) = f
r = r + 1
f = Dir
Loop
End Sub
4. Run
5. File - close and return to Excel

 

[Gary''s Student]

Try this small macro:

Sub Macro()
x = Shell("cmd.exe /c dir *.* /ad /b /s > C:\xx.csv", 1)
Workbooks.Open Filename:="C:\xx.csv"
End Sub

 

[Bob I]

The Open and Save As dialog boxes in Windows do not support "tree view",
you will need to use Windows Explorer.