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";>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";>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
