thanks alot Paul its working.
On Fri, Oct 14, 2011 at 9:09 PM, Paul Schreiner <schreiner_p...@att.net>wrote:
> do you HAVE a sheet called "FolderList" ??
>
> If not, replace "FolderList" with the name of the sheet that you want to
> use to display the sizes!
>
>
> *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:31:34 AM
>
> *Subject:* Re: $$Excel-Macros$$ Need help
>
> hi Paul,
>
> i am getting bug here,
>
> ub List_Folder_Size()
> Dim fso, fldr, sfldr, FolderName
> Dim Sht, R
> FolderName = "D:\C-backup"
> Sht = "FolderList"
>
> Set fso = CreateObject("Scripting.FileSystemObject")
>
> Sheets(Sht).Range("A2:Z65000").ClearContents
>
>
> this yellow highlighted one i am getting bug.
>
> Please can you help me in this concern.
>
> Thanks,
> Raj
> On Fri, Oct 14, 2011 at 8:51 PM, Paul Schreiner <schreiner_p...@att.net>wrote:
>
>> 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<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
>>
>
>
>
> --
> --
> 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<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
>
--
--
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<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
