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

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

"observer" wrote:

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

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


--
Gary''s Student - gsnu200839


"observer" wrote:

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

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

observer wrote:

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