directory structure

  • Thread starter Thread starter Matt J.
  • Start date Start date
M

Matt J.

Is there a way (either with VBA in excel, or another program) to get the
contents of a drive and/or folder and save it as an excel file? Output
would be something like columns for:

A: Path
B: File Name
C: Extension

Just something that could prove to be useful. Thanks.

M. Johnson
 
Matt,

My Excel add-in "List Files" does what you want.
It finds files in a drive, directory or folder meeting criteria you specify.
It generates a list on a new Excel worksheet showing...
file location, name, type, size and last saved date.
A hyperlink is created for each file.
It is very easy to use and comes with a one page Word.doc install/use file.
It is available - free - upon direct request.
Remove xxx from my email address.

Regards,
Jim Cone
San Francisco, CA
(e-mail address removed)
 
In their infinite wisdom, Microsoft has neglected to include a prin
facility in Windows Explorer. This means that you cannot print out
list of all your files on a particular drive or in a particular folder
This can be particularly frustrating if you need to sort out you
files.

A way to overcome this is to go into Outlook

Click the Other Shortcuts sub-bar on the Outlook Shortcut Bar

Double click on My Computer

Select the folder that you would like to print

Go to File/Print/Select Print Style

Select the Print Preview Button before you send to print to make sur
that you have the correct layout you require.

hth

Mik
 
Hi Matt.........

I just want to confirm that Jim's "List Files" Add-in works
"fine-fine-superfine"........I use it all the time. (Thanks again Jim)

Vaya con Dios,

Chuck, CABGx3
 
try this to list the files in yourfolder

Sub anotherfindfiles()
Application.ScreenUpdating = False
Dim FN As String ' For File Name
Dim ThisRow As Long
Dim MyFileLocation As String
MyFileLocation = "c:\yourfolder\*.xls"
FN = Dir(MyFileLocation)
Do Until FN = ""
ThisRow = ThisRow + 1
Cells(ThisRow, 1) = FN
FN = Dir
Loop
Application.ScreenUpdating = True
End Sub
 
Back
Top