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