Need macro to list folder with name and size in excel. Thanks

Hi,

I'm wanting excel to find list of folders, name and size...
it does work, i dont know..it is giving error message.
code source
vbaexpress kb/getarticle.php?kb id=1042

also please check this link
LINK REMOVED (No permission)
[vba]

Option Explicit


Sub GetFileNames()

Dim xRow As Long
Dim xDirect$, xFname$, InitialFoldr$

InitialFoldr$ = "G:\" '<<< Startup folder to begin searching from

With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a folder to list Files from"
.InitialFileName = InitialFoldr$
.Show
If .SelectedItems.Count <> 0 Then
xDirect$ = .SelectedItems(1) & "\"
xFname$ = Dir(xDirect$, 7)
Do While xFname$ <> ""
ActiveCell.Offset(xRow) = xFname$
xRow = xRow + 1
xFname$ = Dir
Loop
End If
End With
End Sub
[/vba]
Thanks everyone for helping.

Pedie.

Firstly i have deleted all your other messages in other threads which were simply asking how do i post.

Secondly why is it not working? what is the error it gives? which version of excel are you using?

Cross-Posted:

http://www.mrexcel.com/forum/showthread.php?p=2387212

Duplicate:
http://www.mrexcel.com/forum/showthread.php?t=483566

Reference to VBAX KB Article:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=1042

Reference to Application.FileSearch method:
http://www.automateexcel.com/2008/09...n-a-directory/


@Pedie:

Please see Here

Please read Mr. Puls' article in the above link. I cannot imagine a kindlier way of advising reference cross-posting; kudos to Ken.

I believe you mention working in 2007. .FileSearch was ditched in 2007. I would suggest you keep after xenou's suggestion, albeit, I would most likely go late-bound.

Mark

Mark thanks for that and the advice to Pedie :)

Hi,

You can get a free Excel file that lists files in any selected folder automatically at the website below.

excelwell-excel-templates.110mb.com

Hope that helps.

:o)

look at this link

http://www.vbaexpress.com/kb/getarticle.php?kb_id=232


http://www.vbaexpress.com/kb/default...n=13&kb_id=232

I really like that file Nandakumar, but does anyone know how to alter the macro code so it lists the contents of the specified folder AS WELL AS the contents of all its sub folders in the same way? You'd obviously need another column showing the folder name each file is in.

That would be fantastic.

Thanks