S Sheeloo Mar 18, 2009 #2 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
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
G Gary''s Student Mar 18, 2009 #3 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
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
B Bob I Mar 18, 2009 #4 The Open and Save As dialog boxes in Windows do not support "tree view", you will need to use Windows Explorer.
The Open and Save As dialog boxes in Windows do not support "tree view", you will need to use Windows Explorer.
