This should do it.
Sub List_Folder_Size()
Dim fso, fldr, sfldr, FolderName
Dim Sht, R
FolderName = "C:\temp\"
Sht = "FolderList"
Set fso = CreateObject("Scripting.FileSystemObject")
Sheets(Sht).Range("A2:Z65000").ClearContents
R = 1
If (fso.folderexists(FolderName)) Then
Set fldr = fso.getfolder(FolderName)
For Each sfldr In fldr.subfolders
R = R + 1
Sheets(Sht).Cells(R, "A").Value = sfldr.Name
Sheets(Sht).Cells(R, "B").Value = sfldr.Size
Next
End If
MsgBox "Done"
End Sub
Paul
-----------------------------------------
“Do all the good you can,
By all the means you can,
In all the ways you can,
In all the places you can,
At all the times you can,
To all the people you can,
As long as ever you can.” - John Wesley
-----------------------------------------
________________________________
From: Rajasekhar Praharaju <rajasekhar.prahar...@gmail.com>
To: excel-macros@googlegroups.com
Sent: Fri, October 14, 2011 11:18:13 AM
Subject: Re: $$Excel-Macros$$ Need help
Hi Paul,
Thanks for your quick reply, Only the first sub folder names and their
respective sizes.
Thanks,
Raj
On Fri, Oct 14, 2011 at 8:45 PM, Paul Schreiner <schreiner_p...@att.net> wrote:
are you wanting all sub-folders within the folder?
>or do you want to progress down through all the nested sub-folders?
>
>Paul
>-----------------------------------------
>“Do all the good you can,
>By all the means you can,
>In all the ways you can,
>In all the places you can,
>At all the times you can,
>To all the people you can,
>As long as ever you can.” - John Wesley
>-----------------------------------------
>
>
>
>
>
________________________________
From: Rajasekhar Praharaju <rajasekhar.prahar...@gmail.com>
>To: excel-macros@googlegroups.com
>Sent: Fri, October 14, 2011 11:11:22 AM
>Subject: $$Excel-Macros$$ Need help
>
>
>Good evening experts,
>
>
>Please assist me in this concern i am looking for a excel macro which can
>give
>details of folders and their respective size.
>
>
>for example i have Main folder with name Excel with in the folder i have many
>other sub folders, so i am looking for a macro which can list the sub folders
>names and their respective sizes.
>
>
>Thanks for your help in advance.
>
>
>--
>
>--
>Thanks & Regards,
>Rajasekhar.P
>--
>----------------------------------------------------------------------------------
>
>Some important links for excel users:
>1. Follow us on TWITTER for tips tricks and links :
>http://twitter.com/exceldailytip
>2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>3. Excel tutorials at http://www.excel-macros.blogspot.com
>4. Learn VBA Macros at http://www.quickvba.blogspot.com
>5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
>To post to this group, send email to excel-macros@googlegroups.com
>
><><><><><><><><><><><><><><><><><><><><><><>
>Like our page on facebook , Just follow below link
>http://www.facebook.com/discussexcel
>
>--
>----------------------------------------------------------------------------------
>
>Some important links for excel users:
>1. Follow us on TWITTER for tips tricks and links :
>http://twitter.com/exceldailytip
>2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>3. Excel tutorials at http://www.excel-macros.blogspot.com
>4. Learn VBA Macros at http://www.quickvba.blogspot.com
>5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
>To post to this group, send email to excel-macros@googlegroups.com
>
><><><><><><><><><><><><><><><><><><><><><><>
>Like our page on facebook , Just follow below link
>http://www.facebook.com/discussexcel
>
--
--
Thanks & Regards,
Rajasekhar.P
Subscribe to our group and receive daily updates.
Excel groups
https://sites.google.com/site/excelencyclopedia/how-to-join/assignments
Send your queries and Suggestions @
excel-gro...@googglegroups.com
Excelforum Blogspot
<a
href="http://feedburner.google.com/fb/a/mailverify?uri=ExcelForum&loc=en_US";>Subscribe
to excel forum by Email</a>
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
